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PREFACE 


This  report  serves  as  a  user's  manual  for  the  dynamic  riverine  water 
quality  model,  CE-QUAL-RIV1 .  The  development  of  this  model  was  sponsored  by 
Headquarters,  U.S.  Army  Corps  of  Engineers  (HQUSACE) ,  as  a  part  of  the 
Environmental  and  Water  Quality  Operational  Studies,  Work  Unit  IC.3  (CWIS  Work 
Unit  31595),  entitled  "Improve  and  Verify  Riverine  Water  Quality  and  Ecologi¬ 
cal  Predictive  Techniques,"  and  is  assigned  to  the  U.S.  Army  Engineer 
Waterways  Experiment  Station  (WES)  under  the  purview  of  the  Environmental 
Laboratory  (EL).  The  HQUSACE  Technical  Monitors  were  Mr.  Earl  Eiker,  Dr.  John 
Bushman,  and  Mr.  James  Gottesman. 

The  first  draft  of  the  manual,  dated  September  1982,  was  prepared  by 
Drs .  Keith  W.  Bedford,  Robert  M.  Sykes,  and  Charles  Libicki  of  Ohio  State 
University  under  Contract  No.  DACW39-82-3548 .  The  original  version  of  the 
model  code  was  also  developed  by  Ohio  State  University.  This  present  version 
of  the  user's  manual  is  a  result  of  revisions  to  the  1990  user's  manual  and 
reflects  model  modifications  made  after  1990.  Revisions  to  the  manual  were 
made  by  Dr.  D.  M.  Griffin,  Louisiana  Tech  University,  and  Dr.  James  Martin  and 
Mr.  Tim  Wool,  AScI  Corporation.  Revisions  were  also  made  by  Dr.  Mark  Dortch 
and  Ms.  Toni  Schneider  of  the  Water  Quality  and  Contaminant  Modeling  Branch 
(WQCMB) ,  Environmental  Processes  and  Effects  Division  (EPED) ,  (EL) .  The 
revisions  to  the  model  code  were  made  by  Ms.  Schneider,  Dr.  Griffin, 

Dr.  Martin,  and  Mr.  Wool. 

This  work  was  conducted  under  the  general  supervision  of  Dr.  John 
Harrison,  Chief,  EL,  and  Mr.  Donald  Robey,  Chief,  EPED,  and  under  the  direct 
supervision  of  Dr.  Dortch,  Chief,  WQCMB.  This  report  is  published  under  the 
Corps  Numerical  Model  Maintenance  Program. 

This  user's  manual  was  reviewed  by  Dr.  Patrick  Deliman  and  Ms.  Dorothy 
Tillman  of  WQCMB.  Dr.  Robert  W.  Whalin  was  Director  of  WES  during  publication 
of  this  manual.  COL  Bruce  K.  Howard,  EN,  was  Commander. 

This  report  should  be  cited  as  follows: 

Environmental  Laboratory.  1995.  "CE-QUAL-RIV1 :  A  Dynamic,  One- 

Dimensional  (Longitudinal)  Water  Quality  Model  for  Streams:  User's 

Manual,"  Instruction  Report  EL-95-2,  U.S.  Army  Engineer  Waterways 

Experiment  Station, . Vicksburg,  MS. 
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CONVERSION  FACTORS,  NON-SI  TO  SI  (METRIC) 
UNITS  OF  MEASUREMENT 


Non- SI  units  of  measurement  used  in  this  report  can  be  converted  to  SI 
(metric)  units  as  follows: 


_ Multiply _ 

cubic  feet 

feet 

inches 

miles  (U.S.  statute) 
square  feet 


_ fix _ 

0.02831685 

0.3048 

25.4 

1.609347 

0.09290304 


To  Obtain 
cubic  meters 
meters 
millimeters 
kilometers 
square  meters 
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0F-0UAL-RTV1  :  ADYNAMIC.  ONE-DIMENSIONAL  (LONGITUDINAL)  WATER 

QUALITY  MODEL  FOR  STREAMS 
USER'S  MANUAL 


PART  I :  INTRODUCTION 

Background 

1.  The  U.S.  Army  Corps  of  Engineers  (CE)  has  major  responsibility  for 
regulation  of  the  Nation's  streams,  rivers,  and  waterways.  This  activity 
often  requires  resolving  issues  and  concerns  with  regard  to  the  water  quality 
of  these  regulated  systems.  Water  quality  simulation  models  can  be  powerful 
tools  for  studying  these  issues.  Of  course,  to  be  useful,  the  water  quality 
model  must  be  properly  suited  for  the  problem  at  hand. 

2.  Regulated  stream  systems  may  include  complicating  physical  features, 
such  as  multiple  run-of- the-river  dams,  locks  and  dams,  and  reregulation  dams. 
In  addition,  highly  unsteady  flows  may  exist  or  may  be  expected  as  in  the 
planning  for  peaking  hydropower  releases.  Numerous  water  quality  models  are 
in  existence,  but  most  were  developed  for  steady  flow  conditions  and  are  not 
appropriate  when  time -varying  flows  are  to  be  considered. 

3.  The  model  presented  herein  was  originally  developed  at  Ohio  State 
University  at  the  request  of  the  U.S.  Environmental  Protection  Agency  (EPA) 
for  the  purpose  of  predicting  water  quality  associated  with  storm  water  run¬ 
off.  Researchers  at  the  U.S.  Army  Engineer  Waterways  Experiment  Station  (WES) 
were  attracted  to  the  model  because  it  is  fully  dynamic  for  determining  flow 
and  water  quality  and  it  has  several  desirable  numerical  features,  such  as  a 
two-point  fourth-order  scheme  for  accurately  predicting  advective  water 
quality  concentrations . 

4.  The  WES  contracted  Ohio  State  University  to  modify  the  model  code  to 
handle  control  structures.  This  modification,  along  with  the  unsteady  flow 
feature,  gave  the  model  the  versatility  needed  for  simulating  CE-regulated 
stream/waterway  projects.  Subsequently,  the  updated  version  was  tested  at 
WES,  and  additional  modifications  and  corrections  were  made,  resulting  in  the 
model  presented  herein,  CE-QUAL-RIV1 . 
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Objective 


5.  The  purposes  of  this  user's  manual  are  to  (a)  document  the  mathemat¬ 
ical  and  numerical  formulations  of  CE-QUAL-RIV1  and  (b)  provide  the  guidance 
necessary  for  its  implementation.  The  first  five  parts  deal  with  documenta¬ 
tion,  and  the  last  two  parts  with  operation.  Because  the  codes  are  separate, 
some  parts  are  associated  only  with  the  hydraulic  code,  RIV1H;  others  deal 
only  with  the  water  quality  code,  RIV1Q.  The  output  from  RIV1H  is  used  to 
drive  RIV1Q.  However,  a  variety  of  hydraulic  codes  have  also  been  used  to 
drive  RIV1Q. 

Model  Selection  Criteria 


6.  The  first  criterion  for  selection  of  CE-QUAL-RIV1  for  an  application 
is  whether  the  issues  can  be  resolved  with  a  one -dimensional  (1-D)  (cross- 
sectionally  averaged)  model.  Most  riverine  water  quality  issues  can  be 
resolved  with  a  1-D  model;  that  is,  in  riverine  systems,  lateral  and  vertical 
gradients  in  water  quality  constituent  concentrations  are  generally  insignifi¬ 
cant  and  unimportant  relative  to  longitudinal  gradients.  This  assumption 
implicitly  means  that  vertical  temperature,  density,  and  chemical  stratifica¬ 
tions  (which  can  play  a  dominant  role  in  the  water  quality  of  lakes  and 
reservoirs)  are  nonexistent  or  negligible  for  practical  purposes.  Thus, 
although  this  model  can  be  used  for  run- of- the -river  reservoirs,  locks  and 
dams,  and  reregulation  pools,  the  user  must  first  be  sure  that  vertical  strat¬ 
ification  does  not  exist  or  is  so  minor  as  to  not  affect  water  quality 
conditions.  In  addition,  where  point  source  discharges  are  concerned  the 
model  should"  not  be  applied  "near  field"  where  mixing  may  not  have  occurred 
sufficiently  to  satisfy  the  1-D  assumption. 

7.  The  second  criterion  for  selection  of  CE-QUAL-RIV1  concerns  the 
nature  of  the  flow  and  the  issues;  although  CE-QUAL-RIV1  was  developed  for 
water  quality  simulations  of  riverine  systems  with  highly  unsteady  flow,  it 
can  be  used  for  steady  flow  conditions.  However,  it  may  be  easier  and  more 
economical  to  use  another  more  simplistic  formulation,  such  as  the  EPA  QUAL2E 
model  (Brown  and  Barnwell  1987),  which  assumes  steady  flow.  If  the  issues 
demand  high  resolution  and  the  flows  change  substantially  over  a  period  of 
hours  or  days,  then  a  fully  dynamic  model,  such  as  CE-QUAL-RIV1  should  be 
used. 
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8.  Specific  guidance  has  not  been  developed  to  determine  at  what 
condition  a  dynamic  flow  model  should  be  used.  The  development  of  specific 
guidance  would  depend  on  the  issues  and  the  required  resolution.  For  example, 
if  daily  average  (or  longer  time  averages,  perhaps  even  steady-state)  predic¬ 
tions  are  sufficient,  then  more  simplistic  modeling  approaches  may  suffice, 
even  for  unsteady  flow  projects.  However,  if  diel  fluctuations  (and  peaks  and 
troughs)  are  important  and  various  interest  groups  are  sensitive  to  such 
fluctuations ,  then  a  dynamic  model  would  be  necessary  for  an  unsteady  flow 
project.  Transient  flow  conditions  can  produce  substantially  greater  fluctua¬ 
tions  in  diel  temperature  and  dissolved  oxygen  (DO)  values  than  the  natural 
diel  effects  (Matter  et  al.  1983). 

9.  Even  when  a  study  is  highly  sensitive  and  high  resolution  is 
required  with  diel  fluctuations,  a  time-varying  water  quality  model  that 
assumes  steady  flow  (such  as  QUAL2E)  may  suffice  if  the  flows  are  relatively 
constant  or  change  slowly  during  the  simulation  with  respect  to  the  travel 
time  of  the  system.  However,  if  the  flows  change  substantially  during  a  day 
and  from  day  to  day,  then  a  dynamic  flow  model  (such  as  CE-QUAL-RIV1)  should 
be  considered.  The  study  of  riverine  water  quality  resulting  from  the 
releases  from  peaking  hydropower  dams  is  a  good  example  of  the  use  of 
CE-QUAL-RIV1 . 

10.  It  should  be  noted  that  RIV1H  uses  the  fully  dynamic  flow  equa¬ 
tions;  thus  it  has  wide-ranging  capabilities  with  good  resolution.  This 
advantage  must  be  weighed  against  possible  disadvantages  such  as  unfamiliarity 
of  the  user  with  the  code.  RIV1Q  can  be  driven  by  any  hydraulic  or  hydrologic 
routing  model,  no  matter  how  simple,  as  long  as  the  proper  linkages  are  made. 
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PART  II:  THE  GOVERNING  EQUATIONS 


General  Considerations 

11.  The  transport  of  momentum  and  water  quality  constituents  during 
unsteady  flows  can  be  marked  by  sharp  gradients  in  flow,  elevation,  and  water 
quality  concentrations .  These  gradients  can  be  propagated  by  the  flow  wave 
through  regions  of  highly  variable  cross  sections  intermittently  joined  by 
major  inflow  tributaries,  with  the  magnitudes  of  concentrations  often  being 
augmented  by  both  point  and  nonpoint  source  contributions. 

12.  Since  the  speed  of  flow  waves  is  often  quite  high,  water  quality 
concentrations  can  be  dominated  by  advective  transport  rather  than  biogeo - 
chemical  interactions  and  diffusion.  Therefore,  the  water  quality  model  must 
be  dynamic  and  have  the  following  minimum  attributes.  The  model  must: 

a.  Account  for  time -varying  flow,  elevation,  and  water  quality 
constituent  changes  resulting  from  highly  unsteady  flows. 

b.  Include  the  direct  explicit  interaction  of  flow  and  elevation 
on  the  constituent  distributions. 

c.  Be  applicable  for  a  river  channel  of  arbitrary  cross  section 
and  specified  bottom  slope. 

d.  Allow  for  a  number  of  water  quality  constituents  and  the  proper 
mathematical  specification  of  their  mathematical 
interrelationship. 

e.  Account  for  the  effects  of  lateral  inputs  of  water  and  associ¬ 
ated  pollutant  concentrations. 

f.  Allow  simulation  of  multiple  hydraulic  control  structures. 

13.  The  assumptions  that  the  above  attributes  require  for  the  develop¬ 
ment  of  the  basic  governing  transport  equations  are  listed  below.  For  a  river 
that  is  much  longer  than  wide  or  deep,  the  following  assumptions  apply: 

a.  Hydrostatic  pressure  exists. 

b.  Lateral  and  vertical  gradients  are  small  and  neglected;  thus 
the  equations  are  cross -sectionally  averaged  for  flow  and 
constituent  variables  (1-D  assumption). 

c.  All  cross  sections  and  bottom  configurations  are  known. 

d.  All  lateral  point  and  nonpoint  source  flows  and  input  concen¬ 
trations  are  known. 

14.  When  solved,  the  hydraulic  transport  equations  permit  the  calcula¬ 
tion  of  downstream  histories  of  flow  and  water  surface  elevation.  These 
equations  are  well  known,  and  their  derivations  are  quite  routine.  There  are 
two  different  approaches  to  the  derivation  of  flow  wave  equations.  The  first 
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starts  with  the  basic  three-dimensional  (3-D)  equations  of  continuity  and 
Navier  Stokes  (Bird,  Stewart,  and  Lightfoot  1964)  and  by  cross-sectional 
averaging  reduces  the  four  equations  to  a  coupled  pair  of  dynamic  cross - 
sectionally  averaged  equations  for  longitudinal  space  and  time  patterns  of 
flow  and  elevation.  This  procedure,  however,  always  results  in  the  necessity 
of  specifying  a  very  ambiguous  eddy  viscosity  to  account  for  the  ever-present 
correlations  between  fluctuating  components  resulting  from  the  averaging. 
Longitudinal  eddy  viscosities  are  very  small,  particularly  during  elevated 
flows  (Fischer  et  al.  1979),  and  are  quite  frequently  used  improperly  to  tune 
the  correct  answer  into  existence  rather  than  to  represent  actual  problem 
physics.  A  second  approach,  which  assumes  inviscid  flow,  is  the  control 
volume  method  (Liggett  1975)  used  to  derive  the  equations  herein. 

15.  The  notation  and  coordinate  system  are  defined  as  in  Figure  1.  It 
is  assumed  that  the  coordinate  system  is  placed  in  the  river  bottom  with  the 
bed  slope  relative  to  a  gravity-based  coordinate  system  being  such  that 
tan  0  «  0  ,  and,  therefore,  0  is  very  small.  It  is  further  assumed  that  x 
is  directed  positive  downstream  and  that  because  the  bed  slope  is  very  small, 
the  water  elevation  h(x,t)  ,  directed  parallel  to  the  gravitational  direc¬ 
tion,  is  perpendicular  to  x.  A(x,t)  is  the  cross-sectional  area  of  flow, 
and  B(x,t)  is  the  top  width  of  flow.  If  the  relationship  among  area  of 
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flow,  top  width,  and  flow  depth  is  represented  by  the  shape  factor  £(z)  ,  A 
and  B  can  be  related  to  h(x,t)  . 

16.  Assume  as  in  Figure  2  that  a  discrete  length  Ax  of  river  channel 
is  isolated.  If  the  flow  is  from  left  to  right,  then  unit  normals  n0  and 
rii  are  defined  as  being  positive  away  from  each  face  through  which  flow  is 
entering  and  exiting.  Total  mass ,  momentum,  and  species  mass  will  be  con¬ 
served  within  this  control  volume.  Streeter  and  Wylie  (1979)  present  the 
general  form  of  the  control  volume  conservation  law  in  a  continuum  with  mass 
concentration  b  as 


dfl 

dt 


dbM 
—  dV  + 

at 


(i) 


Equation  1  states  that  the  total  time  rate  of  change  of  mass  in  the  control 
volume,  B  ,  (B  «=  bv)  equals  the  time  rate  of  accumulation  of  b  within  the 
control  volume  (cv)  plus  the  net  rate  at  which  b  is  being  carried  into  the 
control  volume  through  the  control  surface  (cs).  The  cv  conservations  of 
water  mass,  momentum,  and  species  mass  are,  respectively,  written  for  an 
arbitrary  cv  in  a  3-D  flow  field  v  as 


Mass:  JJJ  ^fdV  +  JJ  (pv  •  h)  dA  =  0 


(2) 


Momentum: 


(3) 


Mass 
species : 


3a 

3t 


dV  + 


(4) 
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where 


p  *  fluid  density,  M/L3 
t  *  time 

dV  -=  differential  volume,  L3 
v  *  velocity  vector  (ui  +  vj  +  w£)  ,  L/t 
dA  -  differential  area,  L2 

F  -  vector  sum  of  the  real  applied  external  forces  on  the  cv,  ML/t2 
q;  -  species  mass  concentration,  M/L3 
S*  -  net  source  term  for  biochemical  changes  in  a,  M/t 
The  variables  M  ,  L  ,  and  t  are  general  units  of  mass,  length,  and  time, 
respectively. 


Derivation  of  Equations 

17.  As  in  Liggett  (1975),  a  much  simpler  derivation  is  obtained  for  the 
river  problem  by  assuming  that  the  average  velocity  U  (or  average  species 
concentration  a)  is  known  at  a  cross  section.  A  Taylor  series  expansion 
across  inlet  and  outlet  permits  much  simpler  expressions  to  be  identified. 
Conservation  of  mass 

18 .  The  conservation  of  water  mass  equation  shows  that  the  time  rate  of 
change  of  storage  equals  net  mass  efflux  through  the  cv  surface.  By  a  Taylor 
series  expansion,  therefore 


a(pAAx)  = 

\/  \ 

y  _  au  Ax  _  3A  Ax 

0 . 

/  y 

.  BA  Ax 

A  + - 

at 

k  dx  2  A  ax  2; 

Sx  2  J 

ax  2  JJ 

For  an  incompressible  fluid  such  as  water,  p  -  constant;  multiplying  out  and 
dividing  by  pAx  gives  for  small  Ax 


3  A  d  (UA)  n  3A  3Q  n 
—  +  _ — 1  =  0  or  —  +  _  =  0 

dt  3x  dt  dx 


where  Q  is  the  volumetric  flow  rate. 
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Momentum  conservation 

19.  The  momentum  equation  is  a  bit  more  difficult.  It  states  that  the 
net  force  acting  on  the  cv  equals  the  time  rate  of  change  of  momentum  in  the 
cv  plus  the  net  rate  of  efflux  of  momentum  through  the  cv.  Therefore 


3(QAx)p 

3t 


[U(UA)]  +  i-  [U(UA)]  ^ 


-  P 


[u  (UA)] 


dx 


U  (UA) 


Ax 


=  F 


(7) 


The  force  vector  F  requires  further  expansion  into  three  subcategories: 
gravity,  shear,  and  pressure  forces. 

20.  Gravity  force,  fc.  The  total  gravity  force  is  nothing  more  than 
the  component  of  the  weight  of  water  in  the  cv  (pgAAx)  directed  in  the 
x-direction  or  pgAAx  sin  0  .  Therefore 


fg  =  pgAAxS0 


(8) 


where  S0  -  sin  0=0  is  the  slope. 

21.  Shear  force.  fT.  The  channel  sides  and  bottoms  deplete  momentum  by 
the  action  of  bottom  friction  or  shear.  This  depletion  is  made  mathematically 
analogous  to  the  gravity  slope  term  by  setting 

fT  =  pgAAxSf  (9) 


where  Sf  is  the  friction  slope.  Several  forms  for  the  friction  slope  exist, 
but  either  Chezy  or  Manning  forms  predominate,  i.e. 


U2n2 

(l  .486  R2/3)2 


(10) 


13 


where 


n  *  Manning's  friction  factor 

R  -  hydraulic  radius  which  is  approximately  equal  to  A/B  ,  where  B 
is  the  top  width 

Therefore, 


pgAAx 


2_2 


U  n‘ 


(l .  486  Rz/3)2 


or 


fT  =  pgAAx 


n2lQ|p 

2.2  A2  R4/3 


(ID 


where  the  absolute  value  has  been  retained  to  ensure  that  no  matter  which  way 
the  wave  propagates,  shear  always  dissipates  momentum. 

22.  Pressure  force.  fr.  The  total  pressure  force  on  the  face  of  the  cv 
is  the  integral  of  the  irregular  trace  of  the  cv,  i.e. 


h 

J  pg(h  -  2)5 (z)dz 


(12) 


where  5(z)  is  the  channel  width  at  height  z  above  the  bottom.  A  Taylor 
series  expansion  gives  the  net  pressure  in  the  downstream  direction 


h 

f p  =  -  ^  J  Pg(h  -  z)5  (z)dzAx 
h 

=  "  Pg  |  ^  [(h  -  z)5(z)]dzAx 


(13) 


and  by  chain  rule  differentiation 
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(14) 


fP  =  "  PS 


3h 

3x 


h 

|  5(z)dz 


(h  -  z) 


£i^dz 

dx 


Ax 


The  first  term  represents  the  pressure  force  at  that  particular  cross  section. 
The  second  term  represents  the  net  pressure  force  caused  by  rapid  area  changes 
over  the.  length  Ax  .  If  the  channels  are  considered  prismatic  and  regular, 
then  the  last  term  has  little  significance.  Therefore 


*  *  dh  . 

fP  =  *  P&4— -  Ax 
y  dx 


(15) 


The  final  equation  for  momentum  is  then 

P  +  4-  (QU)  +  gA  |£  =  gA(S0  -  Sf) 

3t  dx  ox 


(16) 


Modifications  to  momentum  and  continuity 

23.  Lateral  and  tributary  inflow.  Runoff  from  lands  adjacent  to  the 
channel  or  tributary  inflow  can  cause  increased  levels  of  total  mass  and 
momentum  in  the  river.  If  q  is  the  flow  per  unit  channel  length  entering 
the  river  with  velocity  Uq  ,  then  Equations  6  and  16  become,  respectively, 


dA  dQ 
—  +  _  =  q 
3t  dx 


(17) 


and 

+  i-(UQ)  +  gA  p  =  gA(S0  -  Sf)  +  qU  (18) 

dt  dx  dx 

However,  the  model  code  does  not  include  the  last  term  in  Equation  18  because 
it  is  relatively  insignificant  compared  with  other  terms  of  the  momentum 
equation. 


15 


24.  Floodplain  storage.  As  sometimes  occurs,  excess  quantities  of  non¬ 
moving  water  are  often  stored  in  the  floodplain.  Since  the  water  is  not  mov¬ 
ing,  the  momentum  equation  remains  unaffected  by  this  feature.  The  continuity 
equation  must,  however,  account  for  the  excess  mass.  If,  as  in  Figure  3,  A0 
is  defined  as  the  cross-sectional  area  of  the  floodplain  waters,  then  Equa¬ 
tion  17  becomes 


3(A  +  Ao)  ^  3Q 
dt  dx 


(19) 


A0  ~  A0i  +  Aq2 
B0  =  B0i  +  B02 


Figure  3.  Floodplain  geometry  and  notation 

However,  the  effect  of  floodplain  storage  is  not  presently  included  in  the 
code . 

25.  Channel  constrictions .  Often  very  intense  channel  constrictions, 
due  to  bridges  for  example,  occur  over  channel  lengths  that  are  far  too  small 
to  economically  resolve  in  the  model.  The  subgrid  scale  effect  of  such 
constrictions  is  a  momentum  loss  and  backwater  effect.  This  effect  is 
accounted  for  in  the  right  side  of  the  momentum  equation  by  subtracting  the 
force  term,  pgAhE  where  hE  is  a  head  loss  and  KE  is  a  coefficient  to  be 
selected  and  optimized. 


16 


(  X 


|2 


(20) 


ke  Q 

2gU 


The  default  value  is  zero  for  no  constriction  loss.  A  value  for  KE  as  high 
.as  0.5  may  be  appropriate  for  an  abrupt  constriction. 

26.  Momentum  correction  factor.  When  the  velocity  across  the  channel 
is  substantially  nonuniform  through  the  model  reach,  it  may  be  necessary  to 
use  a  momentum  correction  factor  B  in  the  momentum  equation.  The  momentum 
correction  factor  fi  multiplies  the  second  term  on  the  left  side  of  Equa¬ 
tion  18;  this  correction  permits  the  use  of  the  average  velocity,  U  ,  in  the 
solution  whereas  the  velocity  distribution  at  each  cross  section  may  be  quite 
different  from  U  .  For  example ,  for  laminar  flow  in  a  straight  round  tube , 

B  is  4/3.  It  equals  1.0  for  uniform  flow  and  cannot  be  less  than  1.0.  For 
RIV1H ,  a  constant  value  is  used  throughout  the  modeled  reach.  The  default 
value  of  1.0  is  recommended  for  rivers  and  streams. 

27.  Tributary  networks .  The  momentum  and  continuity  equations  above 
must  be  applied  to  each  and  every  tributary  entering  the  main  stem.  At  each 
junction,  the  water  surfaces  in  each  branch  must  be  equal. 

Mass  species  equation 

28.  Again,  by  using  the  Taylor  series  approach,  the  advection  and 
diffusion  of  a  biogeochemically  reactive  substance  of  concentration  a  is 


9(oA) 

at 


+ 


a  (Q  a)  =  _d_ 

dx  dx 


DA 


\ 

3a 

dx, 


+  yq  +  S* 


(21) 


where 

D  -  turbulent  dispersion  coefficient 

Y  -  concentration  of  species  type  a  entering  the  tributary  from 
lateral  flow  q 

S*  -  source/sink  term  in  units  of  (M/Lt) 

Equation  21  must  be  written  for  every  transported  species. 
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Initial  and  Boundary  Conditions 


Initial  conditions 

29.  For  continuity,  the  only  initial  conditions  to  be  specified  at 
time  t  «=  t0  for  all  the  nodes  i  for  i  -  1  to  N  are 

A(t  =  t0,x)  =  A.(x)  (22) 


or  since  there  is  a  direct  correspondence  between  A  and  h,  it  is  permissible 
to  use 


h(t  =  to,x)  =  hi  (x) 


(23) 


Either  Equation  22  or  23  must  be  used,  but  not  both. 

30.  For  the  momentum  equation  either 


Q(t  =  tQ,x)  =  Qi(x)  (24) 

or 

U(t  =  to,x)  =  U^x)  (25) 


is  permissible. 

31.  For  the  species  transport  equation,  the  following  is  used: 

a(t  =  to,x)  =  ai  (x)  (26) 


Boundary  conditions  for 
continuity  and  momentum 

32.  For  the  upstream  boundary  at  x  *=  0  and  the  downstream  boundary  at 
x  —  L  ,  the  following  sets  of  boundary  conditions  may  be  used  for  the  combined 
set  of  continuity  and  momentum  equations.  Please  note  that  two  first-order 
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equations  require  only  a  total  of  two  boundary  conditions .  Therefore ,  only 
one  set  may  be  used  for  each  simulation. 


h(t,x  = 

0)  = 

hu(t) 

and 

h(t,x  =  L) 

«hd(t) 

(27) 

Q(t,x  = 

0)  = 

Qu(t) 

and 

Q(t,x  =  L) 

=  Qd(t) 

(28) 

h(t,x  = 

0)  = 

Vt) 

and 

Q(t,x  =  L) 

=  Qd(t) 

(29) 

Q(t,x  = 

0)  = 

;Qu(t) 

and 

h(t,x  =  L) 

=  hd(t) 

(30) 

h(t,x 

=  0) 

=  \(t) 

and 

fiCQ.h)  = 

fld(t) 

(31) 

Q(t,x 

=  0) 

=  Qu(t) 

and 

f2(Q,h)  = 

f2d(t) 

(32) 

where  fx  and  f2  are  rating  curves  relating  h  and  Q  for  the  downstream 
d  boundary  conditions.  It  is  permissible  to  properly  substitute  A  and  U 
for  Q  in  these  expressions. 

33.  It  should  be  noted  that  the  upstream  boundary  condition  for  a  trib¬ 
utary  can  be  selected  by  specifying  either  the  elevation  or  the  flow.  At  the 
downstream  tributary  boundary,  i.e.  the  confluence  with  the  main  stem,  only 
the  elevation  is  allowed  as  a  "boundary”  condition  to  ensure  that  continuity 
is  preserved  at  the  junction. 

Boundary  conditions 
for  species  transport 

34.  The  boundary  conditions  for  species  transport  are 


a(t,x  =  0)  =  au(t) 
a(t,x  =  L)  =  ad(t) 


(33) 


However,  the  condition  ad(t)  is  presently  not  specified  as  input  data  for 
riverine  simulations.  This  must  be  included  as  input  if  the  model  is  modified 
for  inflow  at  the  downstream  end,  such  as  occurs  with  estuarine  boundary 
conditions . 
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Equation  Summary 


35.  The  following  equations  govern  the  unsteady,  1-D  (longitudinal) 
hydrodynamics  and  transport: 

Continuity 


d(A  +  Ao)  +  aq 
dt  dx 


(34) 


Momentum 


3Q  +  a(UQ) 
dt  dx 


( 


(35) 


Equations  34  and  35  are  commonly  referred  to  as  the  St.  Venant  equations. 
Constituent  transport 


d  (qA) 
dt 


+ 


d  (QqQ  =  _d_ 
dx  dx 


DA 


da 

dX; 


+  yq  +  S* 


(36) 


Equation  36  is  often  referred  to  as  the  "advection-dispersion  equation  with’ 
source/sink  terms."  The  initial  conditions  are  Equations  22  (or  23),  24  (or 
25),  and  26  for  the  continuity,  momentum,  and  mass  species  equations,  respec¬ 
tively.  Boundary  conditions  are  one  set  selected  from  Equations  27  through  32 
for  the  momentum  and  continuity  equation  and  Equation  33  for  the  mass  species 
equation. 
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PART  III:  THE  NUMERICAL  SOLUTION  FOR  FLOW  AND  ELEVATION 

Rationale 

36.  As  noted,  flood  and  peaking  hydropower  waves  and  associated  trans¬ 
port  are  marked  by  rapidly  varying  flows,  elevations,  and  concentrations.  As 
derived,  the  continuity  and  momentum  equations,-  from  which  elevations  and 
flows  are  calculated,  are  hyperbolic.  The  transport  equation  is  dominated  by 
advection;  thus  it  has  hyperbolic  features.  All  of  these  equations,  then,  are 
very  difficult  to  solve  numerically  because  the  smoothing,  stabilizing  effects 
of  dispersion  are  eliminated  or  reduced.  Inspection  of  the  governing  equa¬ 
tions  reveals  that  they  are  coupled,  unsteady,  and  nonlinear,  but  because  the 
contaminant  concentrations  do  not  affect  the  flow  field,  it  is  possible  to 
uncouple  the  solution  of  the  continuity  and  momentum  equations  from  the  solu¬ 
tion  of  the  species  transport  equation.  Once  solved,  the  complete  time  his¬ 
tories  of  flow  and  elevation  can  be  stored  and  used  as  input  information  for 
the  transport  calculations.  Because  the  governing  equations  are  hyperbolic, 
the  solution  procedure  for  the  flows  and  elevations  is  quite  different  from 
the  transport  solution;  therefore,  this  part  presents  the  solution  procedure 
for  the  continuity  and  momentum  equations.  Solution  of  the  transport  equa¬ 
tions  is  covered  in  Part  IV. 


37.  Three  numerical  procedures  are  useful  for  solving  hyperbolic  equa¬ 
tions:  the  finite  element  method,  the  method  of  characteristics,  and 

implicit,  finite  difference  methods.  The  method  of  characteristics  is  quite 
accurate  but  can  be  difficult  to  program  by  anyone  but  a  specialist.  Reviews 
of  this  method  are  found  in  Liggett  and  Cunge  (1975)  and  Abbott  (1979). 
Implicit,  finite  difference  methods  are  simpler  to  program  because  they  are 
much  more  direct  numerical  approximation  techniques  to  partial  derivatives. 
These  methods  also  possess  favorable  stability  behavior  even  in  applications 
with  variable  space  and  time-steps.  Explicit  finite  difference  methods  are 
generally  unstable  and  are  not  considered. 

38.  There  are  many  implicit  procedures,  but  the  method  to  be  used  here 
is  the  four-point  implicit  method  first  used  by  Preissmann  (1961)  with  subse¬ 
quent  applications  by,  among  others,  Amein  and  Fang  (1970)  and  Amein  and  Chu 
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(1975).  This  formulation  is  currently  being  used  by  Fread  (1973,  1978)  in  the 
National  Weather  Service  Dambreak  Model  (Fread  1978).  The  method  is  weighted 
implicit  at  each  time  level,  is  unconditionally  stable  for  0.5  <  0  <  1.0,  and 
permits  relatively  unequal  space  and  time-steps.  The  scheme  has  second-order 
accuracy  when  0=0.5  and  first-order  accuracy  when  0=1.0.  It  is  fully 
nonlinear  but  yet  is  a  compact  scheme  requiring  just  two  points  at  each  time 
level  for  second-order  spatial  accuracy. 

39. .  The  river  system  is  discretized  (Figure  4)  by  a  network  of  time  and 
space  nodes  separated  by  time  and  space  increments  AXi  ,  At^  .  If  0 
denotes  the  point  about  which  the  governing  equation  is  to  be  discretized, 
then  the  values  of  the  variables  at  the  four  points  surrounding  0  are  used 
to  form  the  appropriate  derivatives  and  weighted  averages.  For  a  general 
variable  a  ,  then 


co(0) 


■r 


4$ 


+  (1  -  0) 


"i  +  “i-i 


(37) 
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dx 


/  \ 
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Application  to  Governing  Equations 

The  continuity  equation 

40.  From  Equation  34,  the  continuity  equation  is 

a<A,A°>  .  £2  - „  . o  (40) 

dt  dx 


Using  the  definitions  in  Equations  37,  38,  and  39,  the  discretized  form  of 
this  equation  is 
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The  momentum  equation 

41.  From  Equation  35  and  using  the  definitions  for  SE  and  Sf  from 
Equations  20  and  11,  the  numerical  discretization  of  the  momentum  equation  is 


=  ^i(Qi*l>  ^i+l’  Qi*^)  0 
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The  boundary  conditions 

42.  The  boundary  conditions  must  also  be  "discretized."  This  is  accom¬ 
plished  as  follows.  From  the  list  of  permissible  pairs  of  boundary 
conditions,  one  set  is  selected,  say  Equation  27.  Then  the  discretized  form 
of  the  upstream  boundary  in  terms  of  A  becomes 

fo  =  Ai+1  -  AJtj+1)  -  °  (43) 


while  the  downstream  boundary  condition  at  node  N  becomes 


(44) 


If  flows  or  discharges  are  to  be  specified,  then  from  Equation  28  the  upstream 
boundary  condition  becomes 


(45) 


and  the  downstream  condition  is 


(46) 


Equation  Assembly 

43.  Equations  F£  (Equation  41)  and  GA  (Equation  42)  are  applied  at 
every  node  i  on  both  the  main  stem  and  any  included  tributaries.  The  system 
of  algebraic  equations  results  in  2N-2  equations  for  2N  unknowns.  The  two 
boundary  conditions  are  sufficient  to  completely  close  the  problem.  If 
G0(Qi , Ax)  and  GH(QN,AN)  are  the  boundary  conditions  written  in  the  form  of 
Equations  43-46,  then  the  resulting  system  of  2N  nonlinear  equations  is  for¬ 
mally  written  as 
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G0(Qi,  Ai)  *=  0 
■^1  (Q2 »  A2»  Ql»  Ai)  =  0 
Gi(Q2,  A2 ,  Qlf  A1)  **  0 


Fi (Qi+i  j  Ai+1>  Qif  A,)  =  0 
Gi  (Qi+i  7  Ai+1 ,  Qif  A,)  =  0 


(47) 


Fn-i(Qn> 

an  , 

Qn-1> 

An-i)  =  0 

Gn-i(Qn  j 

An, 

Qn-1  > 

An-i)  =  0 

Gn(Qn>  An)  -  0 

44.  The  general  solution  of  these  nonlinear  equations  can  proceed  in 
two  ways.  First  the  nonlinear  terms  may  be  linearized  by  using  information 
from  the  jth  time -step.  Time  marching  proceeds  very  easily  by  this  procedure. 
However,  under  the  potentially  rapid  and  sharp  gradients  being  reproduced 
here,  a  full  nonlinear  solution  by  Newton-Raphson  iteration  procedures  is 
recommended  and  implemented. 

Newton-Raphson  Solution  for  Flow  and  Elevation 

45.  The  Newton-Raphson  method  for  nonlinear  systems  is  based  upon  esti¬ 
mating  the  residuals  from  each  algebraic  equation  introduced  by  assuming  ini¬ 
tial  answers  for  ^  and  .  The  iterative  reduction  of  the  residuals  by 
successive  Taylor  series  refinement  of  the  estimates  of  Qi  and  AL  com¬ 
pletes  the  procedure.  Details  of  Newton's  method  can  be  found  in  Burden  and 
Faires  (1989) .  The  generalized  Newton-Raphson  procedure  must  be  performed  at 
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each  time -step.  This  method  has  been  used  with  excellent  success  by  the  pre¬ 
viously  cited  authors. 

46.  However,  unlike  the  procedures  by  these  authors,  the  formulation 
herein  employs  a  direct  simultaneous  solution  at  each  iteration  for  all  the 
flows  and  elevations  in  both  main  stem  and  tributaries.  Previous  methods 
employed  an  iterative  method  of  estimating  such  variables.  Therefore,  for 
each  Newton -Raphs on  iteration,  another  sequence  of  interior  iterations  was 
performed.  The  formulation  herein  requires  only  one  five-band  matrix  solution 
at  each  Newton -Raphs on  iteration.  The  Newton-Raphson  concept  is  presented 
herein,  and  details  of  the  matrix  packing  and  solution  procedure  are  presented 
in  the  program  operation  portion  of  the  manual  (Part  VI) . 

47.  The  residuals,  R$ #i  and  R^  ^  ,  from  the  kth  estimate  of  and 

are  found  for  Equations  FA  and  GA  as 

<4$.  a5)  -  <» 

Ak,  eg,  AkJ  -  <, 

45- *  *  4  •  ■£.. 

\ 

Ai-i>  Qi>  Ai)  =Rli 

/  i  (48) 

4ti.  Ai-i-  Ai) =  Rli 

*Vi(Qn.  AJ.  Qn-1.  AH-l)  ■ 

^N-i(^N >  AN>  Qn-1»  AN-l)  =  R2,N-1 

GH(Qn.  Ah)  R2,N 
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48.  A  generalized  Taylor  series  for  a  function  T  that  is  a  function 
of  four  dependent  variables ,  ,  S2  ,  S3  ,  and  is  written  as 


,Tk+1  =  Tk  +  _£1  dS,  +  —  dS2  +  —  dS3  +  —  dS^ 

es1  1  as2  2  as3  as4 


This  general  form  is  now  used  to  relate  the  residuals  to  the  gradients  as 
follows.  Keep  in  mind  that  we  want  to  drive  the  residuals  to  zero;  thus  we 
want  Fi  and  GA  to  be  zero.  If  Tk+1  represents  the  exact  solution  for  FA 
or  Gi  ,  then  Tk+1  is  zero.  This  means  that  the  unknowns  are  dSj  ,  dS2  , 

dS3  ,  and  dSA  .  Let  Tk  be  the  RkA  residual.  Further,  assume  that  Sx  , 

S2  ,  S3  ,  and  SA  become  the  values  Qi+1  ,  Ai+1  ,  QA  ,  and  AL  .  In  the 

Newton-Raphson  iteration,  the  gradients  are  known  from  the  kth  estimate  of  QA 

and  AL  ,  and  the  relationship  between  the  gradients  and  the  residuals  becomes 
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where  the  minus  sign  (from  moving  Tk  to  the  other  side  of  the  equation)  has 
been  included  in  the  residuals;  thus  the  residuals  are  the  negative  of  Equa¬ 
tions  41  and  42.  Note  that  all  derivatives  are  taken  with  respect  to  Qj+i  , 
AJ+i  >  q4+1,  Af1,  etc.  Additionally,  for  all  Q4  and  kL  evaluated  at  time 

j+1 

dQj  =  Q V1  ~  Qi 

i*  Ak  +  1  Ak 

dA:  =  Ax  -  Aj^ 


dQ,  =  Qf 1  - 

dAi  =  Af 1  -  A^ 


(51) 


dQ„  -  Qn+1 


A*-1 

dAN  -  Ah 


49 .  The  derivatives  of  Fi  and  Gi  with  respect  to  A^+J  ,  Qi+i  , 
A^+1  ,  and  Q^+1  are  found  from  Equations  41  and  42  as  follows: 
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3Gi  =  e 
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50.  The  following  subsidiary  manipulations  have  been  used.  First,  area 
and  depth  gradients  are  related  by  the  equation  dk/dz  ~  B  dh/dx  and  second, 
the  hydraulic  radius  is  approximately  equal  to  the  hydraulic  depth  or 
R  “  A/B  .  The  explicit  relationship  between  A  and  h  is  permitted  if  the 
general  empirical  form  for  most  channel  cross  sections  is  used,  i.e. 


A  =  aoh  +  alh#5 


(60) 


By  appropriate  selection  of  the  coefficients,  most  regularly  formed  channel 
cross  sections  can  be  modeled  by  this  function.  A  library  of  such  shapes  was 
created  and  will  be  described  in  detail  in  Part  VI.  It  is  also  noted  that 
Equations  52-59  have  been  multiplied  by  2Atj  in  the  code. 

Calculation  Procedure 

51.  The  nonlinear  solution  procedure  is  used  to  calculate  the  new  flows 
Q^+1  and  areas  A^+1  as  follows: 

Step  1.  Assume  that  Qi  and  a|  are  known  either  from  initial 

conditions  or  from  the  completion  of  the  previous  Newton- 
Raphson  solution. 
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ffoffo 

3AiQi 


3F1  BF1  3F1  3F1 

dl^  8Q^  TT2  8Q^ 


3G1  aGx  3G1  8G1 
dA^dQ^dA^dQ^ 


By  insertion  of  and  into  the  equations  for  F 

and  G  ,  form  the  k  -  1  residuals  RJi.  ,  by  assuming 
that  k  -  1  estimate  for  Q^+1,k  and  A^+1,k  is  the  jth 
time -step  value  for  Q  and  A  or  the  initial  condition 
(Step  1).  For  k  >  1  ,  the  previous  kth  estimates  of 
Q^+1  and  A^+1  are  used. 

After  forming  the  residuals,  the  gradients  are  formed 
from  Equations  52-59,  again  by  using  the  k  -  1  esti¬ 
mates  for  Q  and  A  .  For  subsequent  iterations ,  the 
previous  kth  estimates  are  used. 
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and 


52. 

section, 


Step  4.  From  Equation  50  and  Steps  1  through  3,  a  coefficient 

matrix  is  formed  and  assembled  as  in  Equation  61;  a  system 
of  linear  simultaneous  equations  [M]k{D)k  *=  {R)k  is 
solved  for  {D)k  . 

Step  5.  When  solved  for,  the  departure  vector  { D }k  is  added  to 
the  old  estimates  of  Q  and  A  ,  to  give  a  new  estimate 
for  Q  and  A  ,  i . e . 


. dpk 


(62) 


Aj  +  l,k  +  l  _ 


dA* 


(63) 


Step  6.  A  check  is  made  to  see  how  close  qj+1>k+1  and  A|+1,k+1  are 
to  Q^+1>k  and  A^+1,k  and  if  the  largest  difference  is 
less  than  some  specified  tolerance,  the  iteration  stops  and 
the  new  values  of  A  and  Q  for  the  j+1  time -steps  are 
at  hand.  If  the  tolerance  is  exceeded,  return  to  Step  2 
and  using  Qj+1>k+1  and  A^+1,k+1  ,  repeat  Steps  2  through  6. 


The  programming  of  this  routine  is  discussed  in  the  program  structure 
Part  VI. 
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PART  IV:  THE  NUMERICAL  SOLUTION  FOR  CONSTITUENT  TRANSPORT 


Rationale 


53.  By  inspection  of  the  governing  equations  for  flow  and  elevation 
(Equations  34  and  35)  and  constituent  concentration  (Equation  36),  it  is 
apparent  that  the  flow  field  is  not  affected  by  constituent  concentration.  A 
complete  prediction  of  Q  and  A  can  be  made  without  one's  solving  for  the 
constituents.  This  is  convenient  since  the  constituent  equation  can  be  solved 
separately,  thereby  providing  economy.  Since  any  number  of  species  could 
conceivably  be  solved  for,  the  numerical  solution  must  be  as  quick  as  possi¬ 
ble.  This  suggests  the  use  of  explicit  time-marching  procedures.  However, 
simple  explicit  (and  also  simple  implicit  methods)  time  marching  for  the 
advection  problem  is  a  very  severe  test  for  which,  unfortunately,  the  simple 
methods  fail  to  provide  the  desired  accuracy.  It  should  be  noted  that  pure 
advection  is  the  single  most  difficult  test  for  a  numerical  method  since  the 
initial  concentration  distribution  imposed  on  the  problem  must  be  numerically 
advected  or  transported  without  loss  of  mass,  shape,  and  peak  value,  or 
distortion  of  the  statistics  of  the  distribution  including  mean,  variance, 
skew,  and  kurtosis. 

54.  A  powerful  and  accurate  explicit  method  based  upon  compact,  but 
fourth-order  accurate,  numerical  expressions  is  used  to  solve  Equation  36  for 
advection.  An  implicit  fractional  step  method  is  subsequently  used  for  the 
dispersion  term. 

The  Governing  Equation 

55.  The  general  form  of  the  equation  to  be  solved  is,  for  a  mass  con¬ 
centration  a 


0  (A a) 


3(UAa) 

dx 


d_ 

dx 


DA  — 
dx 


+  qy  +  S* 


(64) 


34 


where 


D  -=  dispersion  coefficient 

y  -  concentration  of  the  runoff 'input  to  the  channel  by  distributed 
flow  q 

S*  =  source/sink  term  which  accounts  for  changes  in  a  due  solely  to 
biological  and  chemical  reasons 

The  variable  S*  is  decomposed  into  a  source/sink  term  that  is  a  function  of 
the  present  concentration  of  a  and  a  function  that  is  not;  therefore 


3 (A  a)  +  3(Q  a) 
3t  3x 


dx[  dx; 


+  qy  +  AC  .a  +  AC2 


(65) 


where  Cx  has  units  of  (1/t)  and  C2  has  units  of  (M/L3t)  .  This  is  the  form 
of  the  equation  to  be  solved,  and  it  requires  the  initial  and  boundary 
conditions  as  stipulated  in  Equations  26  and  33,  respectively. 

56.  The  governing  equation  after  chain  rule  differentiation  is  reassem¬ 
bled  in  the  form 


3a  TT  da  a  3U 
_  +  U  —  +  - 

3t  3x  3x 
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kA  dx  dx; 
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(66) 


where 


1  dA  +U  dA 
k A  dt  A  dx 


(67) 


and 


*2 


(68) 


Equation  66  can  be  rewritten 
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(69) 


da  —  da  d2a  3U 

—  +  u  —  =  D  -  -  <p-a  +  -  a  — 

dt  dx  dx2  dx 


From  continuity  (Equation  34) 


dt  dx  dx 


q 


(72) 


Using  Equation  72,  the  second  and  fourth  terms  on  the  right  side  of  Equa¬ 
tion  69  can  be  combined  as 


(73) 


and  is  redefined  as 

=  5  -  C,  (74) 

1  A  1 


Thus  Equation  69  becomes 
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(75) 
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57.  The  and  <t2  terms  of  Equation  75  are  written  in  expanded  form 

so  that  they  can  be  followed  more  easily  in  the  code;  thus 


£2+u£f=D£!^+5(y-a)-Ksa  +  SINKS  (76) 

3t  3x  3x2  A 


where 

Ks  =  -C^  =  biochemical  uptake  or  decay  rates  (+)  and  growth  rates  (-) 

SINKS  «=  C2  =  biochemical  sources  (+)  and  sinks  (-) 

58.  The  left  side  of  Equation  76  is  solved  for  the  new  time  level  value 

of  a  with  the  fourth-order  explicit  scheme.  Using  this  new  value,  a{X\ 

is  incremented  due  to  the  effects  of  the  second,  third,  and  fourth  terms  on 
the  right  side  of  Equation  76.  The  SINKS  and  Ks  values  are  interpolated 
values  between  nodes  (see  Equation  90).  Finally,  the  solution  is  completed  by 
adding  the  effect  of  diffusion  (first  term  on  right  side  of  Equation  76), 
which  is  computed  implicitly. 

Fourth-Order  Explicit  Scheme 

59.  The  compact,  fourth-order  accurate  scheme  presented  by  Holly  and 
Preissmann  (1978)  is  a  satisfactory  scheme  for  1-D  advection  calculations  and 
is  used  for  all  mass  transport  calculations. 

Polynomial  assumption 

60.  It  is  assumed  that  the  variation  of  any  quantity  between  two 
adjacent  spatial  nodes  is  not  linear  but  is  depicted  by  a  cubic  polynomial 
such  that  for  a  variable  Y 


Y($)  =  A£3  +  B$2  +  D5  +  E 


(77) 


where 
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u*r 


(78) 


*i  +  l 


-  X. 


where 

u*  =  average  characteristic  velocity 
r  =  time -step  ti+1  -  tL 

The  coefficients  for  the  polynomial  are  evaluated  from  the  conditions  that 


Y(l)  =  a{  ;  Y(0)  =  aJi+1  ;  Y(l)  =  axj 


;  Y(o) 
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Y(5)  =  — 
dx 


After  some  algebra 


Y(«) 


=  A.  a.  +  A„  a.  ,  +  A, 
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where 


A,  =  $2(3  -  20 

(81) 

A2  =  1  -  Aj 

(82) 

-  «2(1  -  «)(*!.,  * 

(83) 

-  -5(1  -  5%,!  -  xj 

(84) 
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Note  that  since  the  polynomial  is  parameterized  by  first  derivatives,  an  equa 
tion  for  the  first  derivatives  is  also  necessary.  A  polynomial  for  the  first 
derivatives  is  formed  from 


Y(5) 


b2Qi*l 


+  b3QXi 


+  b, 


axi.i 


(85) 


where 


=  65(5  -  l)(xi+1  -  x,)'1 

(86) 

b2  =  -b, 

(87) 

b3  =5(35  -  2) 

(88) 

bA  =  (5  -  1)(35  -  1) 

(89) 

Both  Y(5)  and  Y(5)  will  be  used  to  determine  and  ax^+i  .  respec¬ 

tively,  resulting  from  pure  advective  transport  (the  left  side  of 
Equation  76) . 

Solution  procedure  for  qjli 

61.  Any  variable  or  coefficient  can  be  interpolated  to  obtain  the 
average  value  between  nodes  as 
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where 


*  = 
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and  u*  is  the  average  characteristic  velocity  between  nodes.  Likewise,  u* 
can  be  found  by  placing  a  linear  interpolation  between  u  and  ui+1  ,  based  on 
u*  ,  or  from  Equation  90 


u* 


— j  +  l  .  —  j 

1+1  i+i 


U  *T 


xi.i 


-  xi 


— j 


“i) 


(91) 


solving  for  u*  and  substituting  Equation  70  for  u 


u* 


UJiIl  +  UJitl  -  DDa£  -  DDAJi+1 


2  + 


(92) 


The  term  becomes  zero  since  D  and  A  are  allowed  only  linear 

variations  between  nodes. 

62.  The  value  of  due  to  advection,  ,  can  now  be  determined 

from 


ai+i 


Y(5) 


(93) 


where  Y(£)  is  evaluated  by  Equations  80-84.  The  values  for  and  otx|+1 

in  Equation  80  must  be  determined  from 


ax 


j 

i  +  l 


=  Y(0 


(94) 


for  Equations  85-89.  The  decay,  sources/sinks,  and  lateral  inflow  terms  are 
next  added  to  a **x  such  that 
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(95) 
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Solution  procedure  for  axjti 

63.  A  spatial  derivative  of  the  transport  equation  must  be  developed  to 
update  ax:j+x  .  This  development  is  done  by  taking  the  derivative  of  Equa¬ 
tion  76  with  respect  to  x  , 


+  =  aV  =  Dav 
at  +  u  ax  '  ax2 
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(96) 


where 


u  -  u  -  D' 


and  the  prime  denotes  ~~  ;  thus  a'  =  ^  -=  ax  =  ax  .  Now  u  —  U'  since  D 

and  A  are  allowed  only  linear  variations  between  nodes.  If  D'  is  small 
and  D  at  a  node  is  constant  or  changes  slowly  over  time,  the  characteristic 
velocity  for  the  spatial  gradient  is  approximated  by  u**  -  u*  -  D  .  With 
the  value  u**  ,  can  be  determined  from 


l* 


TU** 


(97) 


64.  Now  Y(£*)  can  be  evaluated  through  Equations  85-89.  This  evalua¬ 
tion  yields  ax**x  «  Y(£*)  ,  which  is  the  solution  to  the  left  side  of  Equa¬ 
tion  96.  All  but  the  first  term  on  the  right  side  of  Equation  96  are  added  to 
ai+i  such  that 
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The  final  update  for  is  completed  when  the  implicit  solution  due  to 

the  first  term  on  the  right  side  of  Equation  96  (diffusion)  is  added. 

65.  The  derivatives  for  coefficients  used  in  Equations  96-98  are  found 
by 
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and 
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The  steps  outlined  in  this  section  are  repeated  for  each  spatial  node  before 
moving  on  to  the  next  time  line. 

Implicit  Diffusion 

66.  The  constituent  transport  (Equation  76)  and  the  spatial  derivative 
transport  (Equation  96)  equations  are  now  ready  to  have  the  effects  of 
diffusion  added  by 
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(101) 
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where  now  the  j  time -level  is  actually  at  the  new  time -level  following  the 
advection  and  kinetic  reactions  but  just  prior  to  diffusion.  The  diffusion 
terms  are  approximated  by  difference  equations,  approximately  centered  in 
space  and  time.  That  is,  new  time  information  (j+1)  is  weighted  by  a  factor 
0  =  0.55  to  enhance  stability.  The  second  derivative  is  replaced  by  the 
difference  operator  ;  thus 

^2  .  .  (1  -  8)  D„W  (102) 

dxr 


67.  In  space,  centering  would  be  exact  for  a  regular  grid.  However, 
with  an  irregular  grid,  a  quadratic  interpolation  is  used  by  taking  a  Taylor 
series  such  that 
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(103) 


where 


Axi  -  xi+1  -  Xi 

Applying  Equation  103  to  the  difference  operator  (Equation  102)  which  is 
subsequently  applied  to  Equation  101  results  in  Equation  104  for  a|+1, 
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An  equation  similar  to  Equation  104  is  developed  for  ax^*1  . 

68.  When  Equation  104  is  applied  to  every  node  for  i  going  from  2  to 
N-l,  N-2  equations  for  N  unknowns  are  formed.  The  system  is  completed  by 
the  upstream  and  downstream  boundary  conditions.  The  upstream  boundary  condi¬ 
tion  is  given  explicitly  in  the  data  (or  inferred  for  the  spatial  derivative 
of  diffusion) .  The  downstream  boundary  condition  is  simply  that  the  last  node 
is  not  affected  by  diffusion. 

69.  The  system  of  equations  is  assembled  in  tridiagonal  form  with  all 
new  values  (j+1)  on  the  left  side  and  all  old  (j)  values  on  the  right.  The 
implicit  solution  is  accomplished  with  the  Thomas  Algorithm  (subroutine 
TRIDAG) .  Subroutine  TRIDAG  is  also  used  to  calculate  a  cubic  spline  through 
the  initial  data. 


Stability  Requirements 

70.  The  solution  of  the  constituent  transport  equation  has  a  Courant 
number  restriction  for  numerical  stability.  This  is  due  to  the  explicit 
solution  scheme  for  advection.  The  Courant  number,  defined  as 


(105) 


must  be  less  than  1.0  to  preserve  stability.  This  requirement  is  not  con¬ 
sidered  too  restrictive,  although  it  must  be  kept  in  mind  during  an 
application. 

71.  This  version  of  the  RIV1Q  model  is  coded  to  expect  flows  in  the 
downstream  direction  only.  Erroneous  numerical  solutions  can  be  experienced 
if  flows  in  the  upstream  direction  are  experienced.  Upstream  flows  do  not 
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usually  occur  in  nontidal  streams.  However,  highly  unsteady  flows  may  reflect 
off  downstream  control  structures  resulting  temporarily  in  upstream  "reverse 
flows."  RIV1H  can  yield  reverse  flows  that  are  realistic,  but  reverse  flows 
that  persist  very  long  will  yield  unrealistic  results  from  RIV1Q. 

72.  In  a  model  application,  it  was  possible  to  damp  out  reverse  flows 
that  were  reflected  off  a  dam  downstream  of  a  peaking  hydropower  dam  by  pro¬ 
viding  a  minimum  flow  during  nongeneration  periods.  This  minimum  flow  was 
equivalent  to  the  dam  leakage.  RIV1Q  is  being  modified  to  allow  reversing 
flows . 
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PART  V:  SCHEMATIC  MODEL  OF  RIVER  WATER  QUALITY 


73.  In  the  following  paragraphs,  the  mathematical  formulations  of  the 
sources,  sinks,  and  reaction  kinetics  for  various  water  quality  components  are 
presented.  The  most  significant  of  these  are  temperature  and  DO.  However, 
other  variables  are  also  included  because  of  their  effect  on  DO.  These  vari¬ 
ables  include  carbonaceous  biochemical  oxygen  demand  (CBOD)  as  well  as  nitro¬ 
gen  and  phosphorous  compounds .  The  growth  and  decay  of  algae  and  macrophytes 
are  also  modeled  to  complete  the  DO  balance.  Algae  is  modeled  as  a  state 
variable  (subject  to  advective  and  dispersive  transport)  but  macrophytes  are 
not.  Nitrite  plus  nitrate -nitrogen  is  included  to  complete  the  nitrogen 
cycle.  Organic  and  phosphate -phosphorus  are  modeled  to  complete  the  phospho¬ 
rous  cycle.  Coliform  bacteria  are  included  as  a  state  variable  because  of 
their  importance  as  an  indicator  of  stream  pollution.  The  coliform  bacteria 
variable  can  be  used  to  model  other  nonconservative  variables  or  a  conserva¬ 
tive  variable  (by  setting  the  die-off  rate  to  zero).  Dissolved  iron  and  man¬ 
ganese  are  included  because  of  their  impact  on  DO  in  streams  below  dams  with 
anoxic  hypolimnetic  releases.  Thus,  12  modeled  variables  are  included;  those 
to  be  modeled  are  selected  by  the  user.  Transport  of  each  state  variable  is 
accomplished  using  Equation  76.  Figure  5  shows  schematically  how  the  vari¬ 
ables  interact.  The  constituents  as  they  appear  in  the  code  are  as  follows: 
temperature,  C(1,I);  CBOD,  C(2,I);  organic  nitrogen,  C(3,I);  ammonia  nitrogen, 
C(4,I) ;  nitrate  nitrogen,  C(5,I);  organic  phosphorus,  C(6,I);  phosphate  phos¬ 
phorus,  C ( 7 , 1 )  ;  dissolved  manganese,  C ( 8 , 1 ) ;  dissolved  iron,  C ( 9 , 1 ) ;  dissolved 
oxygen,  C(10,I);  coliform  bacteria,  C(11,I);  and  algae,  C(12,I). 

74.  All  of  the  state  variables  may  be  simulated  or  "bypassed."  If  the 
user  elects  to  bypass  a  particular  state  variable  (using  the  bypass  options  as 
described  in  Part  VII,  then  the  concentrations  will  be  held  to  those  specified 
in  the  initial  conditions  for  the  duration  of  the  simulation. 

Temperature 

75.  It  may  be  necessary  to  account  for  the  effects  of  temperature 
changes  along  a  channel  in  order  to  account  for  temperature  gradients  created 
by  cultural  inputs  such  as  power  plant  effluents  or  natural  processes.  In 
addition  to  its  intrinsic  value,  temperature  information  is  required  in  order 
to  correct  kinetic  rate  coefficients.  Stream  temperatures  may  be  read  in 
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Figure  5.  CE-QUAL-RIV1  water  quality  compartmental  diagram 
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ADSORPTION 


directly  or  may  be  calculated/predicted  from  the  solution  of  an  appropriate 
thermal  energy  balance . 

76.  The  transport  equation  (Equation  76)  developed  in  Part  IV,  is  used 
to  solve  for  each  water  quality  variable,  a  ;  thus  for  temperature,  a  ■  T  . 
The  specification  of  the  source/sink  term  and  the  decay  term  of  Equation  76 
must  account  for  all  the  mechanisms  other  than  advection,  diffusion,  and 
lateral  inflows,  which  cause  net  transfers  of  energy  to  the  control  volume. 
Heat  balance  approach 

77.  In  general,  the  heat  balance  approach  used  here  is  the  same  as  the 
one  used  in  the  QUAL2E  model  (1987).  The  external  sources  and  sinks  (exclud¬ 
ing  lateral  inflows)  for  heat  are  described  by 

hn  =  Hs  +  hl  -  he  -  hb  ±  Hc  (106) 


where 


Hi 


N  =  net  heat  transfer, 


heat  energy 


surface  area  *  time 

Hs  =  net  short-wave  radiation 

Hl  *  net  long-wave  radiation 

He  *=  heat  loss  because  of  evaporation 

Hb  =  heat  loss  because  of  back  radiation  of  the  water 

Hq  «  heat  transferred  by  conduction  at  the  water  surface  and  the 
bottom 

78.  There  are  two  options  for  computing  HN  .  In  the  first  option, 
each  term  in  Equation  106  is  computed  (i.e.,  subroutine  HEATFLUX)  and  added  to 
form  Hn  ,  which  is  converted  to  a  rate  of  temperature  change  by 


AT  =  -  •  conv 

PCPH 


(107) 


where 


AT 


rate  of  temperature  change, 


degrees 

time 


P 


H 


specific  mass  of  water, 
specific  heat  of  water, 


mass 
volume 
heat  energy 
mass  *  degree 


hydraulic  depth, 


A 

B 


length 


conv  —  conversion  factor  from  English  to  metric  units 
performs  computations  in  English  units) 


(HEATFLUX 
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The  variable  AT  is  used  for  the  SINKS  term  in  Equation  76,  and  the  Ks 
term  is  zero.  The  algorithms  in  subroutine  HEATFLUX  are  based  on  those  used 
in  QUAL-II  (Roesner,  Giguere,  and  Evenson  1981)  to  compute  the  terms  in 
Equation  106.  The  computations  within  HEATFLUX  depend  on:  water  temperature, 
Ts  ;  time  of  year  and  day,  site  latitude,  longitude,  and  elevation;  and  local 
meteorological  data.  The  previously  computed  value  (previous  time-step)  is 
used  for  Ts  .  The  meteorological  data,  obtained  from  the  National  Oceanic 
and  Atmospheric  Administration  (NOAA) ,  consist  of  dry  and  wet  bulb  tempera¬ 
tures  (°C) ,  wind  speed,  cloud  cover,  and  barometric  pressure.  Generally, 
meteorological  data  are  collected  and  reported  in  1-  or  3 -hr  intervals.  This 
method  is  referred  to  as  a  direct  energy  balance  because  independent  determi¬ 
nation  of  the  full  terms  on  the  right  side  of  Equation  106  is  made  within  the 
simulation,  in  contrast  to  the  alternative  heat  exchange  method. 

Equilibrium  temperature  approach 

79.  The  alternative  method  uses  the  well-known  equilibrium  temperature 
approach,  as  developed  by  Edinger,  Duttweiler,  and  Geyer  (1968)  and  Edinger , 
Brady,  and  Geyer  (1974) ,  to  account  for  the  effects  of  surface  heating  and 
radiation.  The  equilibrium  temperature  approach  is  based  on  the  concept  that 
heat  exchange  does  not  occur  when  the  water  temperature ,  Ts  ,  equals  the 
equilibrium  temperature ,  TE  ;  thus ,  HN  =  0  .  With  Ts  =  TE  and  HN  =  0  , 
the  terms  on  the  right  side  of  Equation  106  can  be  expressed  in  terms  of  TE  , 
and  Te  can  be  solved  iteratively.  Net  heat  transfer,  HN  ,  is  computed  from 


(Te  ~  Ts) 


(108) 


where  KE  is  the  heat  exchange  coefficient  (heat  energy/surface  area/time/ 
degree) .  Using  a  computer  program  with  the  same  meteorological  data  used  for 
the  direct  energy  balance,  TE  and  KE  are  computed  independent  of  the  simu¬ 
lation.  This  program  can  be  obtained  from  WES  or  the  Hydrologic  Engineering 
Center  (HEC) .  A  description  of  the  TE  and  Ks  computation  is  given  in 
Edinger,  Brady,  and  Geyer  (1974). 

80.  If  the  equilibrium  temperature  approach  is  followed,  the  model  uses 
a  single,  constant  value  for  TE  and  KE  .  This  is  equivalent  to  modeling 
stream  temperature  under  constant  meteorological  conditions .  The  computations 
of  Te  and  KE  in  the  WES  and  HEC  program  are  based  on  daily  average  values 
for  meteorological  data;  thus  daily  average  values  of  TE  and  KE  are 
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produced.  Daily  average  values  for  TE  and  KE  are  adequate  for  reservoir 
thermal  simulations  but  may  not  be  adequate  for  riverine  applications  where 
diel  fluctuations  are  important.  In  these  cases,  the  direct  energy  balance 
method  should  be  used. 

81.  By  inspection  of  Equation  108,  the  Ks  coefficient  of  Equation  76 
is  Ke  (KTS  in  the  code)  and  the  SINKS  term  is  KETE  (KTS*TEQ  in  code)  . 
Thus,  KTS  is  converted  to  units  of  per  time  (per  day)  by  dividing  by  (pcpH) 
with  the  proper  conversion  units. 

82.  Either  heat  exchange  method  can  be  augmented  with  bottom  heat 
transfer  by  adding  the  term  KB  (TSINK  -  Ts)  where  TSINK  is  the  bottom/ 
ground  temperature  in  degrees  and  KB  is  the  bottom  heat  transfer  coefficient 
in  units  of  per  day.  In  this  case,  KB  and  TSINK  must  be  specified,  the 

Ks  term  of  Equation  76  is  incremented  by  KB  (KTB  in  the  code),  and  the 
SINKS  term  of  Equation  76  is  incremented  by  KB*TSINK  . 

83.  The  latest  release  of  this  model  includes  mechanisms  to  allow  for 
algae  self- shading  as  this  effect  can  be  significant  for  small  streams.  In 
future  releases,  consideration  should  be  given  to  allow  the  solar  radiation 
that  passes  through  the  water  column  (for  clear,  shallow  streams)  to  be 
absorbed  by  the  bottom  and  reradiated  as  heat,  thus  providing  bottom  warming 
later.  At  present,  all  solar  radiation  is  absorbed  by  the  water  column. 

Carbonaceous  Biochemical  Oxygen  Demand 

84.  The  CBOD  represents  (as  chemically  equivalent  oxygen)  the  ultimate 
amount  of  biodegradable  organic  matter  present,  excluding  organic  nitrogen. 
Model  output  is  given  in  terms  of  first- stage  biochemical  oxygen  demand  (BOD) 
(i.e.,  CBOD);  input  to  the  model  must  also  be  in  terms  of  CBOD's.  If  B0D5 
data  are  available,  these  must  be  converted  to  CBOD  using  the  classical  BOD 
equation. 


BOD, 

CBOD  =  - £ - 

1  -  e(~K*5) 


(109) 


where 

CBOD  =  ultimate  first-stage  (carbonaceous)  BOD,  g/m3 
B0D5  *  5 -day  (carbonaceous)  BOD,  g/m3 
K  *=  bottle  BOD  decay  rate,  day"1 
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The  BOD5  should  be  determined  using  nitrification- inhibited  samples  to  avoid 
double  counting  of  the  nitrogenous  BOD.  If  values  of  the  reaction  rate  con¬ 
stant  K  are  not  available  for  the  wastewater  at  hand,  they  may  be  approxi¬ 
mated  using  Figure  6. 


WITHOUT  PRELIMINARY  SEDIMENTATION 

•  DEMONSTRATION  PLANT 
A  SMALL  SCALE  PILOT  PLANT 

WITH  PRELIMINARY  SEDIMENTATION 

O  DEMONSTRATION  PLANT 
A  SMALL  SCALE  PILOT  PLANT 

NOTE:  K,  (BASE  E)  =  2.3  K,  (BASE  10) 

Figure  6 .  Variation  of  the  bottle  Kx  with  the  degree  of 
biological  wastewater  treatment  (after  Schroepfer,  Robins, 
and  Susag  1960)  (Copyright  1960  Water  Pollution  Control 
Federation  (WPCF) ,  reproduced  by  permission  of  WPCF) 

85.  CBOD  is  a  result  of  biochemical  oxidation  of  organics  by  heterotro- 
phic  bacteria  using  either  oxygen  or  nitrate  as  the  terminal  electron  accep¬ 
tor.  The  latter  process  is  called  denitrification.  In  this  model,  it  is 
assumed  that  oxygen  is  the  terminal  electron  acceptor  at  high  DO's  and  nitrate 
at  low  DO's.  Thus,  the  basic  reaction  for  CBOD  is 
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/  > 
Rate  of  CBOD  loss  due  to 

/ 

CROD^R 

oxidation  and  settling 

=  - 

Kl  +  KDN  + 

,  g/m3/ day 

H  J 

*  CBOD 


(110) 


where 

K1  =  temperature  corrected  rate  coefficient  for  aerobic  oxidation  of 
CBOD,  day'1 

KDN  -  temperature  corrected  rate  coefficient  for  nitrate  reduction  and 
anaerobic  CBOD  oxidation,  day'1 

CBOD  -  concentration  of  CBOD,  g  02/m3,  from  previous  time -step,  C(2,I) 
CBODSR  =  rate  coefficient  for  CBOD  removal  by  settling,  m/day 
H  =  depth,  m 

In  the  present  model,  a  fraction  (FCBOD)  of  decaying  algae  and  macrophytes  is 
assumed  to  contribute  to  CBOD,  the  remainder  (1-FCBOD),  being  oxidized  immedi¬ 
ately  for  energy. 


/  > 
CBOD  gam  from 

OPDECY  * 

/  ' 

( FCBOD *D0)  +  K0CB1 

algae/macrophyte  decay 

DO  +  KOCB  J 

,  g-B0D/m3/day 

/ATPARt;  XyTTM?  A  TU  \ 

(HI) 


where 

OPDECY  =  oxygen- to -biomass  ratio  for  oxygen  production  by  algae  and 

macrophytes  when  ammonia  is  nitrogen  source,  suggested  value, 
1.59 

FCBOD  =  fraction  of  algal  and  macrophyte  mortality  contributing  to  CBOD 

DO  =  average  dissolved  oxygen  along  the  characteristic,  g/m3,  DOX  in 
the  code 

K0CB1  =  Monod  half  velocity  constant  for  oxygen- limited  aerobic 
systems ,  g  02/m3 

ALGADK  =  algal  death  rate,  g/(m3day) 

MDEATH  -=  macrophyte  death  rate,  g/(m3day) 

It  should  be  realized  that  Ks  is  (K1  +  KDN  +  CBODSR)  ,  SINKS  is  the  CBOD 
contribution  from  algal/macrophyte  decay,  and  a  in  Equation  76  is  CBOD  by 
inspection  of  Equation  110. 

86.  The  rate  coefficients  K1  and  KDN  are  presumed  to  be  functions 
of  the  ambient  water  temperature,  the  local  DO,  and  the  local  nitrate  concen¬ 
tration.  The  temperature  correction  is  taken  from  Streeter  and  Phelps  (1925), 
as  is  customary,  although  arguable.  The  coefficient  K1  is  assumed  to 
increase  with  DO  according  to  a  simple  Monod  function  (cf .  Hoover  and  Porges 
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1952),  and  the  coefficient  KDN  is  assumed  to  decrease  according  to  an 
analogous  formula.  The  coefficient  KDN  is  also  assumed  to  depend  on  nitrate 
in  the  same  way  that  K1  depends  on  oxygen. 


> 

{tbios(TEMP'20) 

1  * 

DO 

J 

kD0  +  KOCBlJ 

( 

)  / 

(112) 


KDN  =  ADN  *  [tBIOS(TEMP"20  ))  * 


KOCBDN 


DO  +  KOCBDN 


N03-N 


NO3-N  +  KNCBDN 


(113) 


where 

AK1,  ADN  =  uncorrected  rate  coefficients  for  oxidation  and 
denitrification  of  CBOD,  respectively,  day  1 

TBIOS  =  temperature  coefficient  for  biological  processes,  unitless 

TEMP  =  Ts  =  the  ambient  stream  temperature,  °C 

DO  =  local  stream  oxygen  concentration,  g  02/m3 

K0CB1  -  Monod  half -velocity  constant  for  oxygen- limited  aerobic 
systems,  g  02/m3 

KOCBDN  -  denitrification  inhibition  half -velocity  constant,  g  02/m3 

NO3-N  =  local  nitrate -nitrogen  concentration,  g  N/m3 

KNCBDN  =  Monod  half -velocity  constant  for  nitrate -limited  denitrifica¬ 
tion,  g  N/m3 

CBODSR  is  not  corrected  for  environmental  conditions.  In  addition,  no  provi¬ 
sion  for  fermentation  has  been  provided,  so  in  the  absence  of  oxygen  and 
nitrate,  there  is  no  CBOD  removal  except  through  settling. 

87.  The  net  rate  of  accumulation  of  CBOD  may  be  written  as 


Net  rate  of 
accumulation 
of  CBOD 
,  g/m3/day  , 


-  (AEROBIC  OXIDATION  OF  CBOD)  -  (DENITRIFICATION) 

-  (SETTLING)  +  (ALGAE/MACROPHYTE  DECAY) 


(114) 


and  the  final  equation  is 


Kx  +  KDN  + 


CBODSR 

H 


♦CBOD  +  OPDECY  ♦  (K0CB1  +  DOX*FCBOD)  +  mdeaTH) 

(DOX  +  K0CB1) 


(115) 
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Nitrogen  Interactions 


88.  The  forms  of  nitrogen  (N)  recognized  by  the  model  are  organic 
nitrogen,  ammonium,  and  nitrate.  Nitrite  is  not  considered  because  the  over¬ 
all  rate  of  nitrification  is  ammonia- limited  (Parker  et  al .  1975),  and  stream 
surveys  do  not  exhibit  significant  increases  in  nitrite  in  nitrifying  reaches 
(Garland  1978,  Miller  and  Jennings  1979). 

Organic  nitrogen 

89.  Organic  nitrogen  is  a  constituent  of  the  organic  matter  although 
its  oxygen  demand  is  not  a  part  of  the  CBOD  test  result.  In  this  model 
organic-N  is  produced  from  the  decay  of  algae  and  macrophytes  and  lost  due  to 
hydrolysis  and  settling.  For  pure  compounds,  it  is  well  known  that  their 
constituent  nitrogen  is  released  as  ammonia  during  the  exertion  of  the  CBOD. 
However,  in  this  model  algae  and  macrophytes  are  assumed  to  release  100% 
organic  nitrogen  upon  decay.  This  is  done  primarily  to  be  consistent  with 
other  models  (QUAL2E) .  Hydrolysis  to  ammonia  is  computed  using  rate  coeffi¬ 
cients  from  Equations  112  and  113. 


/  \ 

Rate  of  loss  of  organic  nitrogen 
due  to  hydrolysis  to  ammonia 
and  settling 
k  g-N/m3/ day 

where 

KIN  -  ACK  *  TBI0S/(1 .  +  K0CB1 (IBRANCH)/DOS 

KDN  -  temperature  corrected  rate  coefficient  for  nitrate  reduction  and 
anaerobic  CBOD  oxidation,  day"1 

KNSET  *  rate  coefficient  for  removal  of  org-N  by  settling,  m/day 
H  —  stream  depth,  m 

ORGAN  «=  concentration  of  org-N,  C(3,I),  g-N/m3 

where 

KIN  =  temperature  and  DO  corrected  rate  coefficient  for  organic-N, 
day"1 

ACK  =  rate  coefficient  for  organic-N  hydrolysis  to  NH+A,  day"1 
IBRANCH  *=  segment  (branch)  number 

90.  The  rate  of  organic-N  increase  resulting  from  algal  and  macrophyte 
decay  is  taken  to  be  proportional  to  the  rate  of  decay  of  algae  and 
macrophytes.  The  nitrogen  content  of  algae  is  variously  reported  as  7  to 


KIN  +  KDN  + 


KNSET 

H 


*  ORGAN 


(116) 
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10  percent  by  weight  (Foree  and  McCarty  1968,  MacKenthum  and  Ingram  1967), 
whereas  the  nitrogen  content  of  macrophytes  is  only  2  to  4  percent  by  weight 
(MacKenthum  and  Ingram  1967,  Gerloff  1969).  Assuming  algae  are  dominant  and  a 
nitrogen  content  of  7.5  percent  (Foree  and  McCarty  1968) 


Rate  of  increase  of  organic -N 
due  to  algal/macrophyte  decay 
g-N/m3/day 


=  +ANC0NT  *  ( ALGADK  +  MDEATH) 


(117) 


where 

ANCONT  -  nitrogen-to-biomass  ratio  in  algae  and  macrophytes,  g/g 
ALGADK  *  rate  of  algal  decay,  g/m3/day 
MDEATH  *  rate  of  macrophyte  decay,  g/m3/day 

91.  It  may  be  noted  that  all  the  algal/macrophyte  N  is  assumed  to  be 
released  upon  decay  of  the  cell  (cf.  Foree  and  McCarty  1968,  Jewell  and 
McCarty  1968).  The  algal/macrophyte  decay  rate  itself  is  considered  in 
greater  detail  in  the  following  paragraphs .  Although  Equations  116  and  117 
are  conceptually  appealing,  it  may  be  questioned  whether  the  measured  organic 
nitrogen  in  streams  undergoes  any  net  removal.  For  example,  Ruane  and  Krenkel 
(1977)  have  published  data  for  the  Hols ton  River  that  exhibit  little  change  in 
organic  nitrogen  even  in  rapidly  nitrifying  reaches.  Therefore,  in  some  field 
applications  organic  nitrogen  may  be  regarded  as  inert  and  deleted  from  the 
model.  The  net  rate  of  change  of  the  organic  nitrogen  concentration  can  be 
stated  as: 


Net  rate  of  accumulation 
of  organic  nitrogen 
g-N/m3/day 


\ 


loss  due  to 
hydrolysis 
vand  settling. 


gain  due  to 
plant  decay 


(118) 


and  stated  in  equation  form  as 


/  > 
Net  rate  of  accumulation 

[kin  ♦  KDN  ♦  KNSET] 

of  organic  nitrogen 

= 

H  J 

„  g-N/m3/day 

+ 

[ANCONT* (ALGADK  + 

*  ORGAN 


(119) 
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Ammonium 


92.  Ammonium  increases  because  of  the  hydrolysis  of  organic  nitrogen 
(if  it  occurs).  It  decreases  because  of  conversion  of  ammonium  to  nitrate 
(nitrification),  algal  and  macrophyte  uptake,  and  sorption. 

93.  The  increase  in  ammonium  because  of  organic  nitrogen  hydrolysis  is 
represented  by  Equation  116,  with  the  minus  sign  changed  to  a  plus  because  the 
process  is  a  source  of  ammonia. 

94.  The  rate  of  ammonium  decrease  because  of  nitrification  is  assumed 
to  be  first  order 


/ 


Rate  of  nitrification 
of  ammonium-N  to  nitrate 
g-N/m3/day 


-KN*NH*-N 


(120) 


where 

KN  *  nitrification  rate  coefficient,  day"1 
NHA+-N  *  ammonia-N  concentration,  g-N/m3 
The  rate  coefficient  KN  is  assumed  to  depend  on  oxygen  and  temperature  in  a 
way  similar  to  K1 


KN 


AKN* 


\ 

[tammon(TEMP"20)]  * 

DO 

,  DO  +  KON, 

(121) 


where 

AKN  =  uncorrected  rate  coefficient  for  nitrification,  day”1 

TAMMON  =  temperature  coefficient  for  ammonium  oxidation  (suggested 
value  is  1.1) 

KON  *=  Monod  half -velocity  constant  for  oxygen  limitation  of 
nitrification,  g  02/m3 

where 


KN  = 


AKN 

~  "  KON  * ( I BRANCH  ) 
DOX 


The  form  of  the  oxygen  limitation  factor  is  suggested  by  the  data  summarized 
by  Parker  et  al.  (1975).  A  correction  for  pH  has  not  been  incorporated 
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because  of  the  width  of  the  optimum  range  (about  pH  7  to  9  according  to  Parker 
et  al.  (1975)). 

95.  The  rate  of  uptake  of  ammonium  nitrogen  caused  by  algal  and  macro¬ 
phyte  growth  is  entirely  analogous  to  Equation  122.  However,  the  model 
assumes  that  the  plants  can  use  both  nitrate  and  ammonium.  The  total  nitrogen 
consumption  rate  is  partitioned  between  these  two  forms  in  proportion  to  their 
relative  concentrations : 


>1 

Rate  of  ammonium -N 

/ 

decrease  due  to 

=  -ANCONT* 

NH’-N 

algal/macrophyte  uptake 

NH?-N  +  N0,-N 

,  g-N/m3/ day 

(122) 

♦(ALGRO  +  MGRATE) 


where 

ANCONT  —  nitrogen-to-biomass  ratio  in  algae  and  macrophytes, 

0.075  suggested  value 

NH^-N  -  concentration  of  ammonium  nitrogen,  g-N/m3,  C(4,I) 

N03-N  —  concentration  of  nitrate  nitrogen,  g-N/m3,  C(5,I) 

ALGRO  -  growth  rate  of  algae,  g/m3/day 

MGRATE  -  growth  rate  of  macrophytes ,  g/m3/day 
The  partitioning  function  was  introduced  primarily  to  avoid  double  counting  of 
nitrogen  uptake  by  plants.  More  sophisticated  selectivity  factors  (e.g., 
O'Connor,  Thomann,  and  DiToro  1973;  Baca  and  Arnett  1976;  DiToro  et  al.  1977) 
were  not  used,  because  there  does  not  appear  to  be  any  empirical  data  or 
theory  that  warrants  the  use  of  such  factors  in  models  that  lump  all  the 
photosynthetic  flora  together.  This  is  not  meant  to  deny  that  nutrient  selec¬ 
tion  occurs  in  some  pure  cultures . 

96.  Finally,  a  term  for  physicochemical  sorption  of  ammonium  by  the 
sediments  is  included.  The  need  for  such  a  process  is  shown  by  the  data  of 
Ruane  and  Krenkel  (1977),  Donigan  and  Crawford  (1979),  and  Miller  and  Jennings 
(1979)  .  The  first  two  reports  recorded  losses  in  total  inorganic  nitrogen 
along  well-aerated  nitrifying  reaches  of  about  one-third  to  two-thirds  of  the 
total  input.  Ruane  and  Krenkel  (1977)  also  produced  plant  biomass  data  that 
suggested  nitrogen  uptake  by  plants  was  relatively  small  and  inadequate  to 
account  for  the  observed  losses.  The  diel-average  oxygen  levels  in  all  three 
studies  ranged  from  2  to  8  mg /i  in  the  reaches  studied,  so  denitrification  may 
not  have  been  substantial  either.  Moreover,  sediment  analyses  reported  by 
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Donigan  and  Crawford  (1979)  show  that  in  at  least  two  small  streams  most  of 
the  ammonium  in  the  water- sediment  system  is  in  the  sediments. 

97.  The  representation  adopted  for  ammonium  sorption  by  sediment  is  a 
simple  first-order  decay,  like  that  for  CBOD 


Rate  of  sorption  of 
ammonium-N  by  sediments 
R-N/m3/day 


-KNX*NH. -N 


(123) 


where  KNX  is  the  sorption  rate  coefficient,  day-1.  The  rate  coefficient 
KNX  is  presumed  to  be  a  function  of  temperature . 


KNX  =  (AKNX)  *  [tphyS(TEMP"20-) 


(124) 


where 


AKNX  =  uncorrected  rate  coefficient  for  sorption  of  ammonia  by 
sediment,  day'1 

TPHYS  -  rate  coefficient  for  temperature  correction 

98.  The  ammonium-N  reactions  may  be  combined  and  stated  as 


/ 

Net  rate  of 
accumulation 
of  ammonium 
.  g-N/m3/day  , 


(hydrolysis  If  plant ) 
of  org-N  J  (uptake; 


-  (nitrification)  - 


sorption 

onto 

^sediment , 


(125) 


and  written  in  equation  form  as 


/ 

Net  rate  of 
accumulation 
of  ammonium-N 
k  g-N/m3/day  , 


(KIN  +  KDN)  *ORGAN  +  ANCONT 


(126) 


♦ALGADK  - 


nh4n 

ANCONT* - — 


NH*-N  +  no--nJ 


*  (ALGRO  +  MGRATE)  -  (KN  +  KNX)*NH4-N 


In  Equation  126,  the  coefficient  of  the  last  term  is  Kg  and  the  remaining 
terms  make  up  SINKS  of  Equation  76. 
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Nitrate 


99.  Nitrate  is  formed  by  nitrification  and  removed  by  denitrification 
and  plant  uptake.  Denitrification  can  take  place  in  the  water  column  under 
low  DO  conditions  and  in  the  bottom  sediments. 

100.  The  accumulation  of  nitrate-N  is  stated  as 

/  \ 

Net  rate  of 
accumulation 
of  nitrate-N 
„  g-N/m3/ day  , 

This  can  be  written  in  equation  form  as 


(  water  column 
[denitrification; 


+  (nitrification) 


(127) 


(  plant  )  _  (  sediment  ] 
[uptake J  [denitrification) 


/ 

Net  rate  of  accumulation 
of  nitrate-N 
„  g-N/m3/ day 


- ( ONEQUI *KDN  *  CBOD )  +  (KN*NH4N) 


-  ANCONT  * ( ALGRO  +  MGRATE) 


NO'-N 

NH*-N  +  NO3-N 


(128) 


-  (KDSED+NOj-N) 


All  terms  in  Equation  128  are  in  the  SINKS  term  of  Equation  76  and  Ks  is 
KDSED,  where  KDSED  is  the  sediment  denitrification  rate. 

101.  The  coefficient  ONEQUI  (suggested  value  0.35)  is  a  conversion 
factor  for  oxygen  to  nitrogen  equivalents  and  is  evaluated  as  follows .  The 
half  cell  reaction  for  nitrate  reduction  is 


6H"  +  NO'  +  5e~  =  ±N2  +  3H20 


(129) 


Therefore,  the  equivalent  weight  of  nitrate  nitrogen  is  2.8  g.  The  equivalent 
weight  of  oxygen  is  8.0  g,  and  the  mass  of  nitrogen  equivalent  to  1  g  of  oxy¬ 
gen  is  0.35  g. 

102.  Wheatland,  Barrett,  and  Bruce  (1959)  presented  some  interesting 
data  regarding  nitrification  and  denitrification  in  the  Thames  Estuary. 
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First,  denitrification  occurred  only  in  reaches  with  a  DO  below  about  1  mg /£, 
a  finding  they  supported  with  laboratory  data.  More  importantly,  however, 
they  showed  that  in  the  Thames  the  total  inorganic  nitrogen  concentration 
declined  from  about  9  to  about  3  mg /t  in  a  15 -mile  reach  nearly  devoid  of  both 
oxygen  and  nitrate.  While  this  decline  might  be  interpreted  as  algal  uptake, 
the  depth  and  turbidity  of  the  Thames  argue  against  it,  and  the  observed 
nitrogen  losses  might  be  due  to  simultaneous  nitrification  and  denitrification 
at  very  low  DO. 

103.  More  recently,  the  studies  of  Williams  and  Lewis  (1986)  support 
the  idea  that  nitrification  and  denitrification  occur  simultaneously  because 
of  processes  within  the  sediments.  Additionally,  Hill  and  Sanmugadas  (1985) 
showed  that  denitrification  rates  were  significantly  correlated  to  stream- 
sediment  characteristics;  this  correlation  helps  to  explain  why  recent  studies 
have  revealed  considerable  nitrate  loss  even  during  transport  in  well- 
oxygenated  streams.  Thus,  denitrification  via  the  water- sediment  interface  is 
considered  in  this  model. 


Algae  and  Macrophytes 

104.  Algae  is  modeled  as  a  state  variable  while  macrophytes  are  not. 

The  growth  rates  of  both  are  limited  by  light  intensity.  Furthermore,  macro¬ 
phytes  are  assumed  to  be  benthal.  This  last  assumption  is  defensible  for 
small  streams  overhung  by  forest  canopy  and  for  turbid  streams,  both  of  which 
are  common. 

Algal  growth 

105.  Algae  are  treated  as  a  state  variable;  their  growth  rate  is 
affected  by  light  intensity,  self-shading,  and  nutrients  (N  and  P) .  The 
effect  of  light  intensity  on  the  algal  growth  rate  is  obtained  by  substituting 
Beer's  law  into  a  Monod-type  relationship  and  integrating  over  the  depth  of 
the  channel  cross  section.  The  effects  of  nitrogen  and  phosphorus  on  growth 
are  accounted  for  using  Monod-type  expressions,  similar  to  those  in  QUAL2E. 
This  results  in  a  multiplicative  expression  for  growth  also  similar  to  one  of 
the  QUAL2E  growth  options.  The  resulting  growth  rate  in  reach  I  is  then 
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1  .  KLITE  +  SWALG 

ALGRO  -  C(12 , I)  *AI£1*I  —  I*  In  I  ^  SBALG.EXP(.KEX^j,FN>FP 


(130) 


ALGRO  =  C ( 12 , I ) *ALG1 *FL*FN *FP 


(131) 


where 

ALGRO  «  algal  growth  rate,  corrected  for  light,  temperature,  and 
nutrient  availability,  g-biomass/m3  day  1 

C(12,I)  -  algal  concentration  at  node  I  at  time  t 

ALG1  (KALGRO)  =  maximum  specific  algal  growth  rate,  day'1.  Input  as 
KALGRO,  renamed  ALGl  in  subroutine  SEG 

KEXT  =  light  extinction  coefficient,  m"1,  corrected  for  algal 
self- shading 

H  -  hydraulic  depth,  A/B,  m 

KLITE  =  half -velocity  constant  for  light  intensity,  watt/m2 

SWALG  =  short-wave  radiation  intensity  at  the  water  surface, 
watt/m2 

FN  -  nitrogen  growth  adjustment  factor 
FP  -  phosphorus  growth  adjustment  factor 
FL  =  light  growth  adjustment  factor 
106 .  The  light  extinction  coefficient  KEXT  is  coupled  to  algal 
density  using  the  nonlinear  equation 


KEXT(A.)  =  X0  +  [a0*C(12,I)]  =  X2  [a0*C(12 , 1)  ] : 


(132) 


where 

X  -  KEXT  -  corrected  extinction  coefficient 

X0  =  nonalgal  portion  of  light  extinction  coefficient  -  user  speci¬ 
fied  (LAMBDO) 

—  linear  algal  self-shading  -  user  specified  (LAMBD1)  value  pre¬ 
viously  used,  0.0088  m'1  (jig-Chla/L)'1  (Riley  equation  in  Bowie 
et  al.  1985) 

X2  -  nonlinear  algal  self- shading  -  user  specified  (LAMBDA2)  value 
previously  used,  0.054  m'1  (/ig-Chla/L)'2/3  (Riley  equation  in 
Bowie  et  al.  1985) 

a0  -  algae  chlorophyll  conversion  factor  -  user  specified  (ALPHA0) 
C(12,I)  -  algal  biomass  concentration  at  node  I 
The  same  modification  of  KEXT  is  also  used  to  modulate  the  growth  rate  of 
macrophytes . 
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Effect  of  nutrient 
availability  on  algal  growth 

107.  Algal  growth  is  modulated  by  nutrient  (N  and  P)  availability  using 
a  Monod-like  expression  identical  to  that  used  by  QUAL2E.  The  following 
equations  are  used 


FN 


NPOOL 

(NP00L  +  KNPOOL) 


FP 


P04 

(P04  +  kpoa) 


(133) 


where 

FN  =  nitrogen  limitation  factor 

FP  =  phosphate  limitation  factor 

NPOOL  =  (nitrate+ammonia)  concentration,  g/m3 

KNPOOL  —  half-velocity  constant  relating  inorganic  nitrogen  to  algal 
growth,  g/m3 

P0A  =  phosphate  concentration,  g/m3 

KPOa  *=  half -velocity  constant  relating  phosphate  concentration  to 
algal  growth  rate,  g/m3 

Algal  decay 

108.  Algal  respiration  and  death  (i.e.,  decay)  occur  continuously  and 
can  be  described  as  follows 


f Corrected > 
algal 
decay  rate 
k  (ALGADK)  ; 


algal  > 
concentration 


* 


/ 

specific  algal 
decay  rate 
,  (ALGO) 


f  DO/decay  \ 
[correction; 


(134) 


In  equation  form,  decay  becomes 


ALGADK  =  C(12 , 1)  *  ALGO  * 


DO 

,  DO  +  KOALDK 


(135) 


where 

ALGADK  ■=  algal  decay  rate,  g/(m3day) 

ALGO  -  maximum  specific  algal  decay  rate,  originally  entered  as 
KALGDK,  renamed  ALGO  in  subroutine  SEG,  day'1 

C(12,I)  «»  algae  concentration  at  node  i,  g/m3 

KOALDK  =  DO  half -velocity  constant  for  algal  decay,  g/m3 
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Decay  is  coupled  to  DO  levels  by  a  Monod-type  relationship  because  decay  is 
assumed  to  slow  down  at  low  oxygen  concentrations . 

Macrophyte  growth 

109.  The  macrophyte  growth  rate,  MGRATE  (g/m3/day) ,  is  taken  to  be  the 
product  of  the  benthal  macrophyte  density,  the  local  light  intensity 
(corrected  for  attenuation  en  route) ,  and  a  reaction  rate  coefficient.  To 
further  simplify  the  analysis,  the  stream  cross  section  is  approximated  as  a 
rectangle,  as  shown  in  Figure  7.  Thus,  the  plant  growth  is  distributed  along 
the  channel  bottom  and  sides. 


B 

- 

Figure  7.  Channel  geometry  assumed  for  cal¬ 
culation  of  algal/macrophyte  growth/decay 


Plant  growth  per 
unit  length  of  channel 
(MGRATE) 

g/m7d 


'  \  side 

bottom  . 

,  +  growth 

.growthj  sides 


(136) 


MGRATE  = 


B  *MACR0  *  SWALG  *e ( 

A  ~~ 


/ 

_  *  MACRO  *  SWALG  *  [l.  - 

k KEXT  * A J 


(137) 


where 


B  -  stream  top  width,  m 

-  \  ...  MAPT  TTF  /  /.  /A  fair  ^  MATPHR  f  cr  / 


MACRO  (g/watt*day)  -  MACLITE  (m2/watt/day)  *  MACROB  (g/mz) 
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MACLITE  =  macrophyte  growth  rate  coefficient,  m2/watt/day 

MACROB  -  macrophyte  surface  density,  g/m2 

SWALG  =  light  intensity  (net  short-wave  radiation)  at  the 
water  surface,  watt/m2 

KEXT  =  light  extinction  coefficient  for  the  particular 
reach,  m"1 

H  -  hydraulic  depth,  m 
A  *  channel  cross-sectional  area,  m2 

SWALG  must  appear  explicitly  in  the  equation  because  it  is  recomputed  at  each 
time-step.  The  first  term  on  the  right-hand  side  of  Equation  137  includes  the 
light  intensity  on  the  bottom  (SWALG*EXP(-KEXT*H) ) .  The  second  term  is  the 
summation  of  the  plant  growth  occurring  at  all  depths  on  both  (vertical) 
sides : 


MGRATEsides 

\ 

g 

^ (m3*day) > 


H 

2 . +MACRO* SWALG*  f  EXP [ -KEXT (H-Z) ] *dZ 


A 


(138) 


where 

MACRO  =  MACLITE*MACROB 

To  account  for  diel  effects,  the  surface  light  intensity  (net  short  wave  radi¬ 
ation)  is  computed  as  a  function  of  the  time  of  day.  This  is  accomplished  in 
subroutine  HEATFLUX  if  the  direct  heat  balance  option  is  used;  otherwise,  the 
following  relation  is  used 


SWALG  =  HNEFSW*SIN 


PI  * ( CLOCK-DAWN) 
LAMBDA 


(139) 


where 

HNEFSW  *=  maximum  surface  light  intensity  at  local  noon,  watts/m2 
PI  -  3.14159. . . 

CLOCK  =  actual  time  of  day,  24-hr  clock 
DAWN  *=  time  of  local  dawn,  24-hr  clock 
LAMBDA  -=  elapsed  time  between  local  dawn  and  local  sunset,  hr 
110.  In  one  instance,  numerical  problems  presented  by  the  expression 
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_2_  +  (l  _  e ( -KEXT  .H))  +  g  *  e(-KEXT  .H)  (140) 

KEXT 


used  in  determining  available  photosynthetic  energy  (Equation  137)  must  be 
handled.  First,  the  number  of  calls  to  the  external  function  EXP  (exponentia¬ 
tion)  can  be  halved  by  rewriting  the  above  expression  as  the  algebraically 
equivalent 


2 

KEXT 


B  - 


2 

KEXT 


*  e  ( -KEXT  +H) 


(141) 


The  above  expression,  however,  becomes  numerically  unstable  as  KEXT  approaches 
zero,  although  mathematically  it  approaches  the  value 


2  *  H  +  B  (142) 

This  problem  is  handled  by  taking  a  Taylor's  series  expansion  of  EXP(-KEXT*H) 
in  the  expression  2./KEXT*[l. -EXP( -KEXT*H)  ]  about  KEXT  *  0  carried  to  three 
terms , 


2 

KEXT 


* 


[i. 


(i. 


-  KEXT*H  + 


(KEXT*H)2 

2 


....)] 


(143) 


This  simplifies  to 


H  *  (2.  -  KEXT*H) 


(144) 


Equation  140  is  then  expressed  as 
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H  *  (2.  -  KEXT*H)  +  B*e 


(-KEXT  *H) 


(145) 


for  KEXT  less  than  0.01. 

111.  Therefore,  for  KEXT  less  than  0.01 


MGRATEj^j  s  0  01  =  MACRO  *SWALG* 


m3  *  day 


H*(2 .  -  KEXT*H)  +  B(I)*e 


-KEXT»H 


(146) 


For  KEXT  >0.01 


MGRATEj^t  >  0  01  =  MACRO  +  SWALG* 


m3  *  day 


_JL  +  B(I)  -  —  ♦e™*3 

KEXT  KEXT 


(147) 


112.  As  Beck  and  Young  (1975)  noted,  streams  subjected  to  wastewater 
discharges  are  likely  to  have  high  nutrient  concentrations  and  are  also  likely 
to  be  turbid.  Both  these  conditions  are  reversed  in  lakes,  so  that  the  lake 
plankton  are  often,  if  not  usually,  nutrient-  rather  than  light- limited. 

Thus,  lake  models  almost  always  include  nutrients  in  the  formula  for  the  algal 
growth  rate.  Of  course,  macrophytes  obtain  their  nutrients  from  the  sediments 
(Bole  and  Allan  1978,  Carignan  and  Kalff  1980),  so  stream  nutrient  levels  are 
irrelevant  to  macrophyte  growth. 

Macrophyte  decay 

113.  Algae  and  macrophytes  are  presumed  to  respire  and  die  (i.e.  decay) 
continuously.  The  decay  rate  is  controlled,  in  part  by  the  DO  level  since 
decay  slows  at  low  DO  levels.  Because  of  the  lack  of  reasonably  precise  data, 
no  temperature  correction  is  attempted.  The  decay  rate  is  represented  as 


MDEATH  = 


m3  *  day 


MACDKY *MACR0B *  - - -  * ( B +2  *H ) 

I  DO+KOALDKl 


(148) 
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where 


MDEATH  =  macrophyte  decay  rate ,  g/m3/ d 
MACDKY  -  macrophyte  specific  decay  rate,  day'1 
MACROB  -  macrophyte  density,  g/mz 

KOALDK  -  Monod  half -velocity  constant  for  oxygen  limitation  of 
macrophyte  decay,  g  02/m3 

Oxygen 

114.  The  sources  of  oxygen  (02)  are  reaeration  and  photosynthesis ;  the 
sinks  are  the  exertion  of  CBOD,  nitrification,  plant  respiration,  and  the 
oxidation  of  reduced  iron  and  manganese.  The  present  model  uses  equations 
developed  for  algal  synthesis  and  decay  for  both  algae  and  macrophytes.  The 
stoichiometry  of  these  processes  is  based  on  the  data  of  Foree  and  McCarty 
(1968)  and  depends  on  whether  ammonium  or  nitrate  is  involved.  The  stoichiom¬ 
etry  is  obtained  from  the  following  equations 


132  C02  +  16  NH;  +  H3POa  + 


177 


^2®  =  <-'132^229®58^16^>  + 


597 


02  +  16H* 


(149) 


209  725 

132  C02  +  16  HN03  +  H3POa  +  _  H20  =  C132H228058N16P  +  —  02 


(150) 


The  oxygen  production  indicated  by  Equation  149  when  ammonium  is  the  nitrogen 
source  is  1.59  g  02/g  algae,  and  from  Equation  150  is  1.94  g  02/g  algae  when 
nitrate  is  the  nitrogen  source.  Therefore,  the  rate  of  oxygen  production  by 
photosynthesis  depends  upon  the  relative  proportions  -of  ammonia  and  nitrate 
consumed: 


Rate  of  oxygen 
production  by 
photosynthesis 
g  02/m3/ day 


+  OPDECY  +  ONEQUI* 


no3-n 


(NO'-N  +  NH3-N) 


(151) 

* (ALGRO  +  MGRATE) 
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where  recommended  values  are 
OPDECY  =1.59 
ONEQUI  -  0.35 

115.  The  rate  of  oxygen  consumption  resulting  from  algal  decay  does  not 
involve  nitrification,  so  it  is  the  reverse  of  Equation  149  after  accounting 
for  the  fraction  that  feeds  directly  into  CBOD: 


'Rate  of  oxygen  consumption 
by  plant  decay 
g  02/m3/ day 


=  OPDECY* (ALGADK  +  MDEATH) 


(152) 


116.  The  rate  of  oxygen  consumption  resulting  from  CBOD  decay  is  equal 
to  the  rate  of  CBOD  decay,  because  of  the  definition  of  CBOD.  This  rate  is 
given  in  Equation  110  (without  CBODSR  and  KDN) ,  and  K1  is  computed  from 
Equation  112. 

117.  The  rate  of  oxygen  consumption  resulting  from  ammonium  oxidation 
is  based  on  Equations  120  and  121.  Since  the  units  of  the  SINK  term  are 
g-N/m3/day,  a  conversion  factor  is  required.  This  is  computed  from 
Equation  153: 


NH^  +  2  02  =  HN03  +  H20  +  H* 


(153) 


The  oxygen  consumption  here  is  ONITRI  g  02/g  N  (ONITRI  -  4.57).  Some  authors 
prefer  a  value  of  4.33  g  02/g  N,  arguing  that  some  of  the  ammonium  consumed  by 
the  nitrifiers  goes  into  cell  synthesis  (Garland  1978).  However,  the  nitri- 
fiers  are  themselves  subject  to  predation,  which  returns  the  incorporated 
ammonia  to  the  stream  for  further  nitrification.  The  actual  amount  of  ammonia 
removed  or  nitrified  is  unknown,  but  the  difference  between  4.57  and  4.33  is 
insignificant  when  one  considers  the  usual  accuracy  of  field  data. 

118.  The  rate  of  oxygen  uptake  resulting  from  stream  reaeration  can  be 
formulated  as : 
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(154) 


Increase  in  DO 

due  to  reaeration  =  K2 * (DOSAT-DO) 
g  02/m3/ day  _ 

where 

K2  -  reaeration  rate  coefficient,  day’1 
DOSAT  -  local  solubility  of  oxygen,  g  02/m3 
DO  -  local  oxygen  concentration,  g  02/m3 
Reaerations  equations  for  K2  may  be  stated  in  a  general  form  as 


(155) 


where 

AG,  El,  E2  =  empirical  coefficients 

TPHYS  =  temperature  correction  coefficient  for  reaeration 
In  using  Equation  155,  it  must  be  noted  that  AG  is  sometimes  given  for 
25  °C.  For  those  who  prefer  the  Tsivoglou-Wallace  (1972)  equation  in  its 
published  form,  provision  has  been  made  in  the  program  to  permit  its  use  as  an 
option  where: 


K2  =  TSIV *  [ E ( I -1 )  -E ( X >  ]  +  TpHYs (temp-20)  (156) 

(DX/U) 

and  where 

TSIV  =  empirical  coefficient,  m'1  (the  value  is  entered  in 

units  of  ft'1  and  converted,  suggested  value  is  0.054) 

E(I-l),  E(I)  —  water  surface  elevations  at  the  upstream  and 

downstream  ends  of  the  reach  under  consideration,  m 

DX  *=  length  of  the  reach,  m 

U  -  reach  stream  velocity,  m/day 

In  using  Equation  156 ,  it  must  be  noted  that  TSIV  is  sometimes  given  for 
25  °C.  As  discussed  in  Part  V,  the  model  can  also  account  for  structural  and 
wind- driven  reaeration. 

119.  The  solubility  of  oxygen  in  water  is  calculated  using  the 
following  formula  (Elmore  and  Hayes  1960) : 
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DOSAT  =  14.652  +  [-0.41022  +  (0.007991  -  0 . 000077774+TEMP) +TEMP]  (157> 


120.  The  oxidation  of  reduced  iron  (FE)  and  manganese  (Mn)  is  con¬ 
sidered  to  occur  as  a  first-order  reaction.  Accounting  for  stoichiometric 
conversions,  the  oxygen  used  during  oxidation  of  reduced  iron  and  manganese  is 


'Rate  of  oxygen  used' 
for  oxidation  of  Fe 
and  Mn,  g  02/m3/day 


=  -OFEDEC  +KFEDK+FE  -  OMNDEC*KMNDK*MN 


(158) 


where 

OFEDEC  =  oxygen- to- iron  ratio  for  iron  oxidation 
KFEDK  -  oxidation  rate  for  iron,  day'1 

FE  «=  concentration  of  reduced  iron,  g/m3 
OMNDEC  =  oxygen- to -manganese  ratio  for  manganese  oxidation 
KMNDK  =  oxidation  rate  for  manganese,  day'1 

MN  =  concentration  of  reduced  manganese,  g/m3 

121.  A  DO  loss  for  sediment  oxygen  demand  (SOD)  is  also  provided  as  a 
zero -order  sink  term.  SOD  is  input  by  the  user  as  KSOD,  g/m2/day. 

122.  The  complete  balance  of  DO  reactions  is 


*Net  rate  of  accumulation^ 
of  dissolved  oxygen, 

g/m3/d 


(Reaeration)  -  (CBOD  oxidation) 
-  (nitirfication)  + 

(  DO  used  in  algal/  1 


DO  production  \  (159) 
[from  algae/macrophytesj 


I  ,  r  .  |  -  (Fe  oxidation) 

[macrophyte  respiration) 

(Mn  oxidation)  -  (SOD) 


This  is  stated  in  equation  form  as 
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(Rate  of  accumulation') 
of  dissolved  oxygen 
g  02/m3/ day 


=  K2  * (DOS AT  -  DO)  -  K1+CB0D  -  ONITRI *KN *NH4N 


+  OPDECY  + 


ONEQUI ■ 


NO3-N 


(NOj-N  +  nhT-n) 


* ( ALGRO  +  MGRATE) 


-  OPDECY* (1  -  FCBOD) * (ALGADK  +  MDEATH)  -  OFEDEC  *KFEDK*FE 
-  OMNDEC 


(160) 


Phosphorus  Interactions 

123.  Hydrolysis  of  organic-P  is  the  source  of  phosphate  while  sinks  are 
sorption  to  the  sediments  (Taylor  and  Kunishi  1971)  and  plant  uptake  of  phos¬ 
phate.  These  last  two  mechanisms  appear  to  be  competitive,  and  phosphate 
sorbed  to  sediments  may  be  unavailable  to  plants  (Fitzgerald  1970) .  Addition¬ 
ally,  organic  P  can  be  lost  through  settling  and  gained  through  plant  decay. 

124.  The  physicochemical  sorption  occurs  only  on  aerobic  sediments,  and 
phosphate  is  released  from  anaerobic  conditions  (Gummerman  1970,  Olsen  1964). 
This  latter  possibility  is  ignored  in  the  present  model  under  the  assumption 
that  anaerobic  conditions  are  uncommon  in  streams.  As  much  as  half  the 
phosphate  present  in  streams  subjected  to  detergent  phosphate  discharges  may 
be  polymerized  as  either  tripolyphosphate  or  pyrophosphate  (Engelbrecht  and 
Morgan  1959) .  These  different  forms  are  believed  to  be  sorbed  and  consumed  at 
the  same  rates,  so  they  have  not  been  distinguished  in  the  present  model.  In 
this  model  macrophytes  are  assumed  to  take  up  phosphate  from  the  water  column. 
In  reality,  most  macrophytes  take  nutrienj^^g^i ®<^gggts  •  However,  epi¬ 
phytes  attached  to  macrophytes  can  strip  nutrients  from  the  water  column. 

125.  The  phosphate  sorption  process  is  represented  as  a  simple  first- 
order  decay: 


Rate  of  loss  of 
phosphate  through 
sediment  sorption 
g-P/m3/day 


=  -KP04DK*P04 


(161) 
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where 


KP04DK  =  first-order  reaction  rate  coefficient  for  sorption,  day  1 
P04  =  local  phosphate  concentration,  g  P/m3 
The  rate  coefficient  is  corrected  for  the  appropriate  temperature  from  the 
following  expression. 

KP04DK  =  APO4*[tPHYS(TEMP~20‘ 5]  ^162) 

where 

AP04  *  uncorrected  rate  coefficient  for  phosphate  sorption,  day”1 
126.  The  algal/macrophyte  sources  and  sinks  of  P  are  evaluated  using 
Equations  149  and  150.  These  equations  indicate  that  algae  are  about 
1.0  percent  P  by  weight.  Therefore,  the  plant  source  and  sink  terms  for  P 
are : 


Release  of  org-P  by 
algal/macrophyte  decay 
g-P/m3/day 


=  APCONT  * ( ALGADK  +  MDEATH) 


(163) 


where 

APCONT  =  phosphorus  - to-biomass  ratio  in  algae  and  macrophytes, 
approximately  0.01 

The  loss  of  organic  P  due  to  hydrolysis  and  settling  is  stated  as 


Loss  of  org-P  due  to 
hydrolysis  to  phosphate 
and  settling 
g-P/m3/day 


(ORG-P)  * 


KPDK  + 


KPSET 

~ 


(164) 


where 

ORG-P 

KPDK 

KPSET 


organic -P  concentration,  C(6,I),  g/m3 
org-P  hydrolysis  rate,  day”1 
org-P  settling  rate,  m/day 
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Uptake  of  phosphate -P  by 
algal/macrophyte  growth 
k  g-P/m3/day 


APCONT* (ALGRO  +  MGRATE) 


(165) 


The  net  rate  of  accumulation  of  organic -P  is  stated  as 


✓  ^ 
Net  rate  of  accumulation 

f  > 

hydrolysis  to  phosphate 

of  org-P 

=  - 

and  settling 

g/m3/ day 

,  g/m3/ day 

+  (plant  decay) 


(166) 


Net  rate  of  accumulation  of 
org-P  per  unit  volume, 

,  g  P/m3/ day 


-  ORG-P* (KPDK  +  KPSET) 
+0.01* (MDEATH  +  ALGADK) 


(167) 


The  net  rate  of  accumulation  of  phosphate-P  is  stated  as 


Net  rate  of  accumulation 
of  phosphate -P 

g-P/m3/day  ; 


hydrolysis  of  |  _  (  sediment 
organic-P  J  [sorption 


uptake  by 
algae/macrophytes 


(168) 


Net  rate  of  accumulation 

of  phosphate-P  =  +  ORG-P *KPDK  -  KP0ADK*P04 

g-P/m3/day 

-  APCONT* (ALGRO  +  MGRATE) 


(169) 


Iron  and  Manganese 


127.  As  modeled  in  CE-QUAL-RIV1,  iron  and  manganese  have  no  autochtho¬ 
nous  sources.  They  can  enter  the  system  only  in  reduced  form  from  upstream 
boundaries,  tributaries,  and  lateral  inflows.  Oxygen  depletion  resulting  from 
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the  oxidation  of  these  reduced  metals  may  have  an  adverse  impact  on  water 
quality  downstream  from  the  inflow  source.  Since  the  presence  of  reduced 
metals  probably  accompanies  releases  of  waters  already  somewhat  depleted  of 
DO,  metal  oxidation  may  exacerbate  existing  conditions. 

128.  Oxidation  of  reduced  iron  or  manganese  (loss  from  the  system)  is 
treated  simply  as  a  first-order  process. 

Loss  of  Mn 
due  to  oxidation 
g/m3/ day 

Loss  of  Fe 
due  to  oxidation 
g/m3/day 

Oxidation  does  not  occur  if  DO  is  less  than  the  user- specif ied  value  of 
OXIDAT.  Use  of  Equation  170  may  require  field  data  to  estimate  oxidation 
(i.e. ,  decay)  rates. 

129.  Temperature  does  not  affect  the  oxidation  rates  in  the  model. 

Such  rate  corrections  are  unnecessary  since  the  current  model  formulation  does 
not  account  for  other,  possibly  more  important  effects  such  as  pH  and  auto¬ 
catalysis.  Future  code  improvements  may  allow  implementation  of  a  more  mecha¬ 
nistic  approach,  accounting  for  variations  in  process  rates,  such  as  those 
presented  by  Dortch  et  al.  (1992). 

Coliform  Bacteria  and  Other 
Conservative  and  Nonconservative  Constituents 

130.  Fecal  coliform  bacteria,  which  are  a  preferred  indicator  for  total 
coliform  bacteria,  enter  the  system  only  through  inflows  that  represent  agri¬ 
cultural  or  urban  flows.  Fecal  coliforms  do  not  reproduce  in  natural  aquatic 
environments,  and  their  populations  decay  exponentially;  thus 


Loss  of  fecal  coliforms,!  =  _KC0LIDK*C0LI  *TBI0S (TEMP"20-  > 
colonies/100  ml/day  J 


(171) 


74 


where 


KCOLIDK  =  rate  coefficient  for  fecal  coliform  die-off,  day  1 
COLI  —  fecal  coliform  count,  colonies/100  ml 
131.  The  coliform  bacteria  variable,  C(11,I)  ,  can  be  used  for  model¬ 
ing  other  miscellaneous  nonconservative  or  conservative  constituents  since  it 
does  not  interact  with  other  water  quality  variables.  Equation  171  does  not 
contribute  to  the  SINKS  term  of  the  transport  equation  (Equation  76) ,  and 
KCOLIDK  is  the  Ks  term  of  Equation  76.  Therefore,  the  first-order  loss  of 
other  nonconservative  constituents  could  be  represented  by  Equation  171  and 
the  variable  C(11,I)  .  Likewise,  a  conservative  constituent  could  be  modeled 
by  setting  KCOLIDK  =  0.0  . 
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PART  VI:  THE  HYDRODYNAMIC  PROGRAM  (RIV1H) 


132.  As  has  been  noted  earlier,  the  model  equations  for  constituent 
transport  are  dependent  upon  hydraulic  variables,  but  not  vice  versa.  Because 
of  this  uncoupling,  two  entirely  separate  computer  programs  can  be  written. 

The  first  program,  called  RIV1H,  solves  for  the  time  and  space  distribution  of 
flow,  cross-section  area,  top  width,  and  depth.  When  completed,  these  calcu¬ 
lations  are  stored  for  use  in  RIV1Q,  the  water  quality  model.  RIV1Q  is  struc¬ 
tured  so  that  for  any  one  set  of  hydraulic  data,  a  variety  of  water  quality 
simulations  can  be  performed.  This  part  describes  in  detail  the  structure  and 
operation  of  RIV1H. 


Overview 


133.  The  hydrodynamic  program  contains  numerous  subroutines  in  addition 
to  the  main  program.  Also,  a  separate  file  linked  to  the  main  program  and 
subroutines,  using  an  INCLUDE  statement,  allows  flexible  dimensioning  through 
use  of  a  PARAMETER  statement.  Furthermore,  the  INCLUDE  file  declares  the 
units  used  for  the  various  input  and  output  files  In  the  program  and  contains 
COMMON  blocks  for  some  key  variables . 

134.  CE-QUAL-RIV1  expects  the  user  to  create  an  execution  control  file 
(RIV1H.CTL)  prior  to  running  RIV1H.  This  control  file  provides  the  names  of 
the  input  and  auxiliary  files  that  are  required  to  successfully  run  the  model. 
The  control  file  must  be  in  the  same  directory  as  the  RIV1H  executable  file 
and  as  such  consist  of  standard  ASCII  text.  The  syntax  of  the  control  file  is 
simple.  The  descriptions  on  the  left  are  used  as  place  holders  so  that  the 
user  knows  which  line  of  the  control  file  is  used  for  which  input  file.  The 
descriptions  can  be  15  characters  long  with  the  name  of  the  input  file  start¬ 
ing  in  column  16.  The  first  line  of  RIV1H.CTL  is  the  model  input  data  file, 
the  second  line  the  lateral  inflow  file,  and  the  third  the  cross-section 
lookup  table  file  name.  If  there  is  no  cross-section  lookup  table  file,  then 
insert  a  blank  line  for  record  three  of  the  control  file.  The  order  in  which 
this  information  is  entered  cannot  be  changed.  A  listing  of  RIV1H.CTL  is 
given  below. 

INPUT  FILE  SAMPLEH . INP 

LATERAL  INFLOW  SAMPLEH. LAQ 
XSECT  TABLR  XSECT.XSF 
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135.  Cross-sectional  shapes  may  be  described  in  RIV1H  by  using  either 
geometric  equations  or  tabular,  surveyed  cross  sections.  If  the  option  for 
surveyed  cross  sections  is  selected  in  the  main  input  file,  then  the  filename 
is  given  in  the  control  file.  Subroutines  AFROMH,  AFR0MH2 ,  HFROMA,  READXS , 
SHELL,  and  XSECT  are  then  called  to  compute  cross-section  flow  properties  from 
surveyed  cross-section  input;  the  purpose  of  each  is  described  later  in  this 
section. 

13.6.  Nonpoint  source  flows  may  be  either  constant  or  time-varying  in 
RIV1H .  If  the  user  elects  to  provide  time -varying  lateral  inflows,  then  the 
name  of  the  lateral  inflow  file  must  be  in  the  control  file.  The  time-varying 
lateral  input  file  will  be  read,  and  flows  updated,  in  the  subroutine 
TIME_VARYING  JJATA . 

137.  The  main  program  then  sorts  through  the  tributary  network,  calling 
subroutine  BUBBLE,  and  determines  what  types  of  boundary  conditions  are  to  be 
found.  It  sets  up  the  main  time  march  in  which  values  for  all  nodes  are 
solved  simultaneously  while  time -steps  are  handled  successively.  At  each 
time-step,  boundary  conditions  are  assigned  (in  subroutine  TIME_VARYING__DATA) , 
and  subroutine  CALC  is  called  for  each  segment  in  a  downstream  order  (from 
lowest  order  streams  to  highest  order) .  Within  each  time-step  the  governing 
equations  are  solved  iteratively;  the  first  iteration  is  completed  by  calling 
subroutine  NEW  for  each  segment  in  an  upstream  order.  Subsequent  iterations 
begin  with  calls  to  ITER,  an  entry  point  within  CALC,  and  again  are  completed 
by  calls  to  NEW.  The  iteration  continues  until  values  of  the  controlling 
variables,  flow  and  area,  have  converged  to  within  tolerance  or  up  to  a  limit 
of  50  iterations.  Subroutine  CALC  contains  the  governing  equations  - 
conservation  of  mass  and  momentum.  Using  the  residuals  and  partial  deriva¬ 
tives  from  these  equations,  subroutine  CALC  sets  up  a  multidimensional 
Newton-Raphson  iteration  in  matrix  format.  The  matrix  equation  is  reduced  to 
two  vectors  and  solved  completely  by  subroutine  MAT5 .  Subroutine  NEW  updates 
the  values  of  flow,  area,  and  other  hydrodynamic  variables.  In  the  case  of 
tributaries,  it  also  completes  the  solution  of  the  matrix  equation. 

Structure  of  RIV1H 

138.  This  section  is  a  guided  tour;  that  is,  topics  are  discussed  in 
the  order  they  appear  in  the  listing  of  the  code,  which  is  found  in  Appen¬ 
dix  A.  Certain  topics,  such  as  the  tributary  structure,  boundary  conditions, 
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cross-section  formulas,  and  input  and  output  are  mentioned  briefly  in  this 
section  but  are  covered  much  more  fully  in  their  individual  sections.  The 
meaning  and  use  of  all  the  variable  names  are  given  in  Appendix  C,  but  it 
should  be  noted  that  in  order  to  conserve  storage,  several  arrays  are  reused 
in  different  ways  in  different  sections  of  the  program.  The  flowchart  for 
RIV1H  appears  in  Figure  8 . 

Main  program 

139-  The  main  program  opens  the  control  file  and  determines  the  names 
of  the  various  input  files .  The  main  program  then  proceeds  to  read  the  title 
card  and  then  the  grid  card  (see  Input  and  Output)  in  which  the  user  indicates 
the  number  of  nodes,  beginning  and  ending  dates  for  the  simulation,  and  seg¬ 
ments  in  the  system.  For  the  purposes  of  this  program,  a  segment  is  defined 
as  a  stretch  of  stream,  each  boundary  of  which  is  either  a  system  boundary,  a 
receiving  stream,  or  a  control  structure  (see  Figure  9) . 

140.  The  beginning  and  ending  dates,  as  with  all  time -varying  data,  are 
provided  by  year,  month,  day,  and  hour  (or  fraction  of  an  hour)  and  are  con¬ 
verted  to  internal  Julian  day  units  by  the  subroutine  JULIAN.  Output  is 
reconverted  to  the  year,  month,  day,  hour  format  by  the  subroutine  GREGORIAN. 
Next,  the  MAIN  program  reads  the  constants  GR,  THETA,  TOLER,  and  BETA.  The 
default  value  of  acceleration  caused  by  gravity,  GR,  Is  set  at  32.174  ft/sec2 
under  the  assumption  that  the  units  used  in  modeling  are  the  customary  English 
units.  If  the  user  wishes  to  use  SI  units,  then  a  value  of  9.80  m/sec2  should 
be  input  (see  Input  and  Output).  In  this  case,  Manning's  coefficients  should 
be  adjusted  by  a  factor  of  1.49  to  account  for  the  SI  form  of  the  Manning's 
equation.  However,  the  water  quality  program  does  not  accept  input  data  with 
SI  units,  although  it  converts  to  SI  units. 

141.  The  weighting  factor,  THETA,  is  discussed  in  Part  III.  A  default 
value  of  0.55  is  cited  in  the  literature  as  optimal  for  model  accuracy;  how¬ 
ever,  a  higher  value  (i.e. ,  0.6  to  0.75)  is  often  used  to  enhance  stability. 
The  relative  error  tolerance,  TOLER,  is  assigned  a  default  value  of  0.001. 
Iteration  ceases  when  all  residuals  (i.e.,  differences  in  successive  itera¬ 
tions)  for  flow  and  area  are  less  than  TOLER  times  the  root  mean  square  of  all 
flows  or  areas  in  the  system.  Experience  suggests  a  larger  value  (i.e.,  0.1) 
can  reduce  run  time  without  substantially  sacrificing  accuracy.  The  momentum 
correction  factor,  BETA,  is  given  the  default  value  of  1.0,  that  is,  no 
correction. 
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Figure  8.  RIV1H  organizational  flowchart 
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142.  The  program  then  proceeds  to  inputting  print  intervals  to  output 
files.  For  each  segment,  the  segment  card  is  read  and  parsed;  then  initial 
conditions  cards  are  read,  one  for  each  node.  Following  these  is  the  boundary 
conditions  identification  card,  in  which  the  user  informs  the  program  which 
boundary  conditions  are  being  supplied  in  the  input  stream.  Time  variable 
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information  is  then  specified,  including  the  model  time -steps  and  names  of 
files  containing  the  time -varying  boundary  condition  data. 

143.  The  user  refers  to  each  segment  by  its  identification  number,  but 
the  program  refers  to  each  segment  by  its  order  of  appearance  in  the  input. 

All  references  by  identification  number  are  therefore  converted  to  references 
by  array  index,  using  the  array  ID  as  a  dictionary.  In  the  same  way,  it  is 
convenient  for  the  user  to  know  to  which  segment  each  boundary  condition 
belongs, .and  the  program  stores  this  information  in  the  array  IBC.  For  the 
program,  however,  it  is  more  convenient  to  know  at  which  array  location  a  par¬ 
ticular  boundary  condition  is  to  be  found.  The  appropriate  indices  are  deter¬ 
mined  and  stored  in  the  arrays  JBCU  and  JBCD,  for  upstream  and  downstream, 
respectively.  Next,  the  number  of  boundary  condition  updates,  the  update 
intervals,  and  the  boundary  conditions  are  read. 

144.  As  mentioned  previously,  the  iteration  process  consists  of  one 
downstream  and  one  upstream  sweep  through  the  system.  The  next  block  of  the 
program  determines  the  proper  ordering  of  the  segments  for  the  two  sweeps  and 
establishes  the  packing  of  arrays  through  which  tributaries  and  receiving 
streams  will  pass  information.  The  water  quality  model  requires  that  data  for 
all  tributaries  to  any  given  segment  be  packed  in  a  downstream  order.  This 
sorting  is  done  by  subroutine  BUBBLE.  Also  in  the  program  section,  boundary 
conditions  that  are  generated  within  the  stream  network,  as  opposed  to  being 
given  in  the  input,  are  reset  in  the  arrays  JBCU  and  JBCD. 

145.  For  the  user,  the  controlling  variables  are  flow  and  stage,  but 
the  program  works  predominantly  with  flow  and  area.  The  next  section  calcu¬ 
lates  area  and  channel  top -width  from  the  initial  stage  and  the  cross  section 
given  for  each  (see  Cross-Section  Formulas). 

146.  River  miles  are  calculated  for  the  system  nodes  as  follows.  Pro¬ 
ceeding  upstream  through  the  network,  if  a  segment  is  the  mainstream  of  the 
system,  the  river  mile  of  the  last  node  is  set  tp  RMILEO  (which  is  obtained 
from  the  input).  If  it  is  a  tributary,  the  river  mile  of  the  last  node  is 
zero.  If  it  terminates  at  a  control  structure,  then  it  is  considered  to  be 
part  of  the  same  stream  as  the  segment  downstream,  and  the  river  mile  of  the 
last  node  is  equal  to  that  of  the  latter's  first  node.  Once  the  river  mile  of 
the  most  downstream  node  is  established,  the  river  miles  of  the  rest  of  the 
nodes  of  the  segment  are  calculated  by  successive  addition  of  distance  incre¬ 
ments,  indexing  upstream. 
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147.  The  acceleration  caused  by  gravity  is  divided  by  two  in  most 
places  that  it  appears  in  the  governing  equations,  so  to  streamline  the 
program,  this  division  is  carried  out  once  and  for  all  before  the  time  march 
begins . 

148.  A  purely  relative  tolerance  test  risks  a  zero  divide  error  in  the 
case  of  a  flow  reversal  where  at  some  instant  flow  may  go  to  zero.  For  this 
reason  and  others,  the  difference  between  successive  estimates  of  the  depen¬ 
dent  variables  flow  and  area  is  compared  not  with  the  values  themselves  but 
with  the  root-mean-square  values  for  all  nodes,  one  for  flow  and  the  other  for 
area,  times  TOLER. 

149.  The  input  title,  constants,  and  initial  conditions  are  copied  onto 
output.  Grid  parameters,  network  organization  variables,  distance  increments, 
lateral  inflows,  and  river  miles  are  written  onto  disk  storage  for  use  by  the 
water  quality  model. 

150.  The  time  march  begins  by  initializing  the  variables  for  tolerance 
testing.  Data  from  the  previous  time -step  are  then  written  (in  the  case  of 
the  first  time-step,  this  refers  to  initial  conditions)  to  the  output  file  and 
to  a  file  for  graphical  post-processing .  At  the  top  of  the  page  of  the  output 
file  comes  the  program  title.  The  run  title,  supplied  by  the  user,  is  written 
below.  Next  the  elapsed  time,  which  has  units  of  seconds  for  computation,  is 
written  out  in  year,  month,  day,  and  hours;  next  to  this  appear  the  time-step 
number,  the  segment  identification  number,  and  the  segment  name.  Headings  are 
written  for  river  mile,  flow,  area,  width,  stage,  and  water  surface  elevation. 
Data  appear  in  columns  below  the  headings.  Information  is  also  provided  when¬ 
ever  time -varying  data  (time -steps,  boundary  conditions,  or  lateral  inflows) 
are  updated,  including  the  date,  value,  and  next  update  interval.  Flow,  area, 
width,  lateral  inflow,  and  water  surface  elevation  are  written  onto  disk  stor¬ 
age.  After  incrementing  the  elapsed  time,  the  calculation  for  the  next  time- 
step  proceeds. 

151.  One  complete  iteration  of  the  Newton- Raphson  method  consists  of  a 
downstream  sweep  through  the  system,  an  upstream  sweep,  and  a  convergence 
test.  For  the  first  iteration  within  a  time-step,  the  downstream  sweep  con¬ 
sists  of  updating  all  time -varying  boundary  conditions  and  calling  subroutine 
CALC  for  each  segment.  Subsequent  iterations  require  updating  only  those 
boundary  conditions  that  are  internally  generated  (i.e.,  rating  curves  and 
water  surface  elevation  at  tributary  junctions).  In  addition,  certain 
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calculations  within  CALC  are  bypassed  by  entering  the  subroutine  at  entry 
ITER.  The.  upstream  sweep  in  both  cases  calls  subroutine  NEW  for  each  segment. 
Fifty  iterations  are  permitted.  If  results  have  not  converged  to  within  tol¬ 
erance  by  then,  the  program  stops,  writes  an  error  message,  and  puts  out  a 
condition  code  of  7 .  The  condition  code  (which  has  a  value  of  zero  if  instead 
the  run  is  successful)  can  serve  as  a  signal  to  other  job  steps  not  to  run. 
Subroutine  CALC 

15.2.  Subroutine  CALC  contains  the  governing  equations  of  the  hydrody¬ 
namic  model- -  conservation  of  mass  and  conservation  of  momentum.  It  sets  up 
these  equations  as  the  sum  of  terms  having  to  do  with  the  previous  time -step 
and  terms  having  to  do  with  the  current  time-step.  Terms  having  to  do  with 
the  previous  time-step  need  be  calculated  only  once  per  time-step.  Therefore, 
all  iterations  past  the  first  enter  subroutine  CALC  at  entry  ITER,  after  the 
calculation  of  previous  time-step  terms.  The  terms  are  lumped  into  the  array 
XC  for  the  continuity  or  conservation  of  mass  equation  and  XM  for  the  conser¬ 
vation  of  momentum  equation.  The  final  entries  of  the  arrays  XC  and  XM  are 
reserved  for  the  contribution  of  the  segment  to  the  continuity  and  momentum 
equations,  respectively,  of  its  receiving  stream  (see  Tributaries). 

153.  To  enhance  execution,  repeatedly  used  array  quantities  are 
assigned  to  scalar  variables;  for  instance,  when  dealing  with  the  reach 
between  nodes  I  and  1+1  ,  the  value  of  Q(I)  is  assigned  to  QO  ,  the 
value  of  Q(I+1)  is  assigned  to  Q1  ,  and  DX  takes  on  the  value  DX1(I)  . 

154.  The  governing  equations  are  written  in  the  program  as  they  appear 
in  Part  III  with  two  exceptions:  the  off -channel  storage  area  AO  is  ignored 
and  the  slope  SO  is  combined  with  the  pressure  gradient  term  and  appears  in 
the  equation  as 


DE  =  EL(I+1)  -  EL(I) 


(172) 


where  EL  is  the  water  surface  elevation. 

155.  The  upstream  boundary  condition  (see  Boundary  Conditions)  can  be 
either  a  flow  or  a  stage.  If  a  stage  is  used,  it  must  be  converted  to  the 
cross-sectional  area  by  the  appropriate  formula  (see  Cross-Section  Formulas). 
The  set  of  boundary  conditions  employed  is  indicated  by  the  value  of  LIB  (see 
Boundary  Conditions) .  The  partial  derivative  array  AA  and  the  residual 
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vector  R  are  packed  accordingly.  Downstream  boundary  conditions  can  be  flow, 
stage,  or  a  rating  curve  and  are  handled  in  the  same  way. 

156.  The  governing  equations  are  given  next,  but  a  little  preparatory 
work  is  necessary  first.  In  calculating  the  partial  derivatives  of  the 
governing  equations  with  respect  to  ^  and  Ai+1  (cross-sectional  areas  of 
nodes  I  and  1+1  ,  respectively)  ,  values  for  dF>i/dAi  and  dBi+1/dAi+1  are 
required.  Applying  the  chain  rule: 

dB  _  dB  dH  =  dB  1  (173) 

dA  dH  dA  dH  B 

It  remains  to  calculate  dBi/dHi  and  dBi+1/dHi+1  .  Now  as  calculation  pro¬ 
ceeds  from  node  to  node,  dBi+1/dHi+1  is  updated  as  the  variable  DBDH  .  It 
takes  on  its  new  value  in  between  the  calculation  of  the  partial  of  the  momen¬ 
tum  equation  with  respect  to  Aa  and  the  partial  with  respect  to  Ai+1  .  This 
leaves  the  values  of  dA^dHj^  ,  which  must  then  be  calculated,  outside  of  the 
loop . 

157.  Proceeding  in  order  then,  the  reach  specific  quantities  are  set. 
The  residual  of  the  continuity  equation  is  calculated.  The  residual  of  the 
momentum  is  calculated.  Calling  the  continuity  equation  F  and  the  momentum 
equation  G  ,  dF/dQ A  ,  dF/dA,  ,  8F/aQi+1  ,  0F/aAi+1  ,  dG/d Q,  ,  aG/SA*  , 
and  aG/aQi+1  are  calculated.  A  new  value  is  calculated  for  DBDH  to  permit 
calculation  of  aG/aAi+1  .  The  matrix  of  partial  derivatives  AA  is  packed 
appropriately  (see  Boundary  Conditions) . 

158.  The  residuals  and  partial  derivatives  are  adjusted  to  account  for 
the  effects  of  any  tributaries  entering  this  segment.  Next,  allowance  is  made 
for  the  fact  that  the  matrix  solver  requires  nonzero  entries  in  the  upper 
left-hand  and  lower  right-hand  corners  of  the  coefficient  matrix  AA.  Under 
certain  types  of  boundary  conditions,  i.e.  those  involving  stage  at  the 
upstream  end  or  flow  at  the  downstream  end,  this  assumption  would  be  invalid. 
To  compensate,  the  program  interchanges  columns  in  the  coefficient  matrix 
prior  to  calling  the  matrix  solver,  subroutine  MATS,  and  reverses  the  inter¬ 
change  in  the  solution  vector  upon  return. 

159.  Finally,  before  returning  to  the  main  program,  if  this  segment  is 
a  tributary,  it  loads  data  into  the  tributary  information  passing  array  T. 
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Subroutine  MATS 

160.  Subroutine  MAT5  contains  an  algorithm  for  solving  the  five-banded 
coefficient  matrix  AA  constructed  in  subroutine  CALC.  It  takes  advantage  of 
several  facts  about  this  matrix  to  increase  efficiency.  The  matrix's  struc¬ 
ture  is  shown  in  Equation  190.  The  value  of  unity  in  the  upper  left-hand 
corner  is  implied,  and  the  extreme  diagonals  are  only  half -populated.  By 
pairwise  row  operations,  these  extreme  diagonals  are  eliminated,  leaving  a 
matrix  of  tridiagonal  structure.  This  is  readily  solved  by  a  recursive 
Gaussian  elimination  (Carnahan,  Luther,  and  Wilkes  1969)  known  as  the  Thomas 
algorithm.  First,  the  lower  codiagonal  is  eliminated  proceeding  from  the  top 
of  the  matrix  down.  Proceeding  from  the  bottom  up,  the  upper  codiagonal  is 
eliminated,  and  each  row  is  normalized  to  leave  the  identity  matrix  on  the 
left  and  the  solution  vector  on  the  right.  In  the  case  of  a  tributary,  a 
companion  vector  C  is  generated  in  this  last  step  (see  Tributaries).  Nor¬ 
mally,  the  lower  right-hand  element  is  assumed  to  be  unity,  and  the  element  to 
its  left  is  assumed  to  be  zero.  These  assumptions  would  not  be  the  case  for  a 
segment  whose  downstream  boundary  is  a  rating  curve.  Such  a  segment  must  have 
its  last  row  handled  in  a  special  way,  which  produces  modified  values  for  the 
solution  vector  (but  not  the  companion  vector  C  as  such  a  segment  cannot  be 
a  tributary) . 

Subroutine  NEW 

161.  The  output  for  subroutine  MATS  is  vector  R,  which  now  contains 
adjustments  to  be  made  in  flow  and  area  to  arrive  at  the  new  estimates. 

First,  however,  the  vector  R  may  have  to  be  adjusted  to  account  for  effects  of 
the  receiving  stream  if  this  segment  is  a  tributary.  Once  this  is  done, 
alternate  values  of  R  are  added  alternatively  to  flow  and  area.  From  the  new 
area  estimates,  new  stage  and  width  estimates  can  be  made.  Now  the  cross- 
section  formulas  explicitly  yield  area  and  width,  given  stage.  There  is  no 
explicit  formulation,  however,  that  will  yield  width  and  stage  given  area. 

The  answer  is,  therefore,  arrived  at  using  another  Newton  iterative  procedure. 
This  is  of  the  form 


(174) 
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where 


Hjjew  *=  new  estimate  of  stage 
Hold  «=  previous  estimate  of  stage 

f(H)  -  cross-section  formula  for  area  as  a  function  of  stage 
A  -  new  cross-sectional  area 

f ' (H)  «  derivative  of  the  cross-section  formula  for  area  as  a  function 
of  stage  with  respect  to  stage 

The  variable  f ' (H)  is  equivalent  to  the  cross-section  formula  for  width  as  a 
function  of  stage,  and  so  it  is  called  BO  in  the  program,  that  is,  a  provi¬ 
sional  estimate  of  width  just  as  HO  is  a  provisional  estimate  of  stage. 

162.  The  test  of  satisfactory  convergence  is  the  relative  difference 
between  successive  estimates,  where  the  tolerance  is  fixed  at  0.01.  Failure 
to  converge  in  10  iterations  causes  the  program  to  terminate,  print  an  error 
message,  and  put  out  a  condition  code  of  7. 

Subroutine  BUBBLE 

163.  As  mentioned  previously,  the  water  quality  model  requires  the 
tributary-data-passing  arrays  JT  and  T  to  be  packed  such  that  all  tributaries 
entering  a  given  segment  can  be  accessed  in  downstream  order.  The  subroutine 
scans  the  list  of  segments  to  see  if  any  has  more  than  one  tributary.  If  one 
is  found,  pointers  to  the  tributaries  and  entries  in  the  array  JT  are  sorted 
in  a  downstream  order  according  to  the  BUBBLE  algorithm  (Knuth  1973). 

Cross-Section  Formulas 


164.  It  is  possible  to  have  a  program  of  this  sort  work  with  explicit 
cross-section  representations;  that  is,  the  coordinates  measured  in  the  field 
could  be  used  directly  to  relate  area,  width,  and  depth.  As  short-hand  cross 
section  descriptions,  however,  RIV1H  has  two  stage -area  and  stage-width  equa¬ 
tions  (stage  is  height  of  the  water  surface  above  the  channel  bottom) :  a 
hybrid  power  function  and  an  ellipsoid  function. 

165.  The  hybrid  power  function  (standard  formula)  is 

A  =  CjH  +  C2HCj  0-75) 


Consequently,  since  B  is  equal  to  dA/dH 
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B  =  C1  +  C2C3HC5'1 


(176) 


where 

A  -  area 
H  *  stage 

B  -  channel  top  width 

These  formulas  can  describe  a  variety  of  standard  shapes.  With  C2  *  0  ,  they 
describe  a  rectangle  of  width  Cx  .  With  Cx  -  0  and  C3  -  2  ,  they 
describe  a  triangle  with  a  height- to -width  ratio  of  ~  .  With  C3  *  2 

and  C2  *  ^  v  +  7  >  they  describe  a  trapezoid  of  bottom-width  C1  and  side- 

Z  I  Zi 

4  i/2  ^ 

slopes  of  Y  and  Z  .  With  C  -  0  ,  C2  -  “  a  '  ,  and  C3  -  ^  ,  they 

describe  a  parabolic  cross  section  of  the  form 

H  .  i(b|2  (177) 

aU; 


where  a  is  the  distance  from  the  vertex  to  the  focus.  Other  shapes  can  be 
approximated  by  curve  fitting. 

166.  In  cases  where  an  ellipse  would  give  a  better  fit  (for  instance, 
flow  in  a  partially  full  conduit) ,  the  user  has  the  option  of  so  describing 
such  cross  sections.  The  geometric  descriptions  at  each  node  are  independent; 
for  instance,  ellipses  may  be  interspersed  with  standard  descriptions.  In 
designating  the  ellipse,  Cx  is  half  the  vertical  axis  length,  C2  is  half 
the  horizontal  axis  length,  and  C3  is  set  to  -1  to  indicate  to  the  .program 
that  an  ellipsoid  description  is  intended.  If  C3  —  C2  ,  of  course,  the  cross 
section  is  circular.  The  formulas  are 


(178) 


and 
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A  =  C1C2  arccos  (l-H/cJ  -  B(ci-H)/2. 


(179) 


All  formulas  are  summarized  in  Figure  10. 


CROSS-SECTIONS  FALL  INTO  TWO  BASIC  TYPES: 
1.  THE  STANDARD  FORMULA: 

A  =  C-|H  +  C2Hc3  .  B  =  Ci  +  C2C3Hc3‘1 
IN  THIS  CATEGORY  FALLS 


RECTANGULAR, 
Ct  =  W 

Ci  =  o 

TRIANGULAR, 

Ci  =  0 


c3  =  2 

TRAPEZOIDAL, 
Ci  =  Bq, 


c2  =  i 

C3  =  2 


m 


AND  PARABOLIC, 
Ct  =  O 
r  .  =  i-  /»i/2 


C 

u3  2 


H  =  — 

er 


OTHER  SHAPES  CAN  BE  APPROXIMATED  BY  CURVE-FITTING 
2.  ELLIPSOID  _ 


B  =  2C2/C!  V2C,H-H2 
A  =  C1C2ARCCOS(1-H/C1)  -  B(Ct-H)/2 


Figure  10.  Cross-section  types 


167.  In  the  course  of  the  program,  several  manipulations  of  the 
cross-section  formulas  are  required.  These  formulas  (Equations  178  and  179) 
are  found  in  the  main  program  in  the  initial  calculations  of  areas  and  widths, 
again  in  subroutine  CALC  in  performing  the  same  calculations  for  upstream  and 
downstream  boundary  conditions,  and  in  subroutine  NEW  where  the  stages  are 
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updated.  Later  in  subroutine  CALC,  when  calculating  the  partial  derivatives 

of  the  momentum  equation  with  respect  to  area,  a  value  is  required  for 

dB/dA  .  This  is  computed  using  Equation  176;  it  is  equal  t0  g  ^  •  T^rie 

derivative  TH  is  called  DBDH  in  the  program  and  for  the  standard  formula  is 
oH 

equal  to 


c2c,  (c,  -  i)hM 


(180) 


and  for  the  ellipsoid  formula 


(181) 


168.  In  most  computer  systems,  algorithms  for  taking  integral  powers 
are  much  less  involved  than  those  for  taking  nonintegral  powers.  RIV1H  takes 
advantage  of  this  by  determining  for  each  cross  section  whether  the  exponent 
C3  is  integral.  If  it  is,  the  integer  array  13  receives  the  value  of  C3  , 
and  C3  is  set  to  zero,  which  serves  as  a  signal  to  the  rest  of  the  program 
to  use  13  in  cross-section  calculations  rather  than  C3  . 


Surveyed  Cross  Sections 


169.  RIV1  can  now  develop  cross-sections  shapes  from  survey  data  in  two 
ways.  The  simplest  method  develops  a  relationship  for  flow,  area,  and  depth 
from  a  set  of  X,Y  pairs.  A  second  method  allows  for  development  of  the  neces¬ 
sary  cross-section  relationships  by  "blending"  information  from  the  upstream 
and  downstream  cross  sections  (parent  cross  sections) .  In  cases  where  only 
one  parent  cross  section  exists,  the  computed  cross  section  is  an  exact  copy 
of  the  parent.  If  there  are  no  parent  cross  sections,  an  error  results. 

170.  RIV1  reads  in  the  cross-section  coordinate  list  and  uses  it  to 
generate  a  table  of  area  versus  height  and  width.  The  algorithm  used  allows 
cross  sections  to  be  bumpy  but  they  cannot  fold  in  on  themselves  or  have  over¬ 
hangs.  Before  proceeding,  the  program  inspects  the  data  to  make  sure  this  is 
the  case.  Once  each  section  of  the  table  is  completed,  the  routines  match  the 
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cross-section  ID  with  the  corresponding  node.  Determining  H  from  A,  or  vice 
versa,  then  consists  of  table  lookup  and  interpolation. 

171.  Each  surveyed  cross  section  maintains  a  pointer  (IXSA)  in  the 
table.  Each  blended  cross  section  maintains  two  pointers,  one  upstream  (IXSA) 
and  one  downstream  (IXSB) .  As  the  water  level  rises  or  falls  in  each  cross 
section,  these  pointers  indicate  the  last  table  entry  used  for  interpolation. 
Each  section  of  the  table  is  bounded  above  and  below  by  zero  so  that  the  rou¬ 
tine  can  tell  if  the  river  has  run  dry  or  overflowed  its  banks. 

172.  To  determine  A  from  H  for  a  surveyed  cross  section,  the  user  must 
first  find  the  appropriate  position  in  the  lookup  table.  Then  calculate  the 
width  B  by  linear  interpolation,  and  use  this  B,  together  with  the  tabulated 
A,  to  compute  the  area  of  the  cross  section  corresponding  to  H.  To  determine 
H  given  A  again,  the  user  begins  by  finding  the  correct  position  in  the  table. 
Then  solve  the  relation 


A  •  Aq  +  B0  •  (H-H0)  ♦  ±  •  •  (H-H0)2  (182) 

l  an 

where  the  subscript  o  refers  to  the  table  value  for  H.  To  determine  H  from  A 
for  blended  cross  sections,  perform  the  above  routine  for  each  parent  and 
average  the  results. 

173.  Determining  A  from  H  for  a  blended  cross  section  is  the  most  com¬ 
plicated  and  cumbersome  task  but  it  only  has  to  be  done  at  model  start-up. 
Once  the  model  is  in  operation,  it  only  calculates  H  from  A  since  A  and  Q  are 
the  primary  variables.  An  exception  to  this  is  boundary  conditions,  but  a 
boundary  condition  can  never  be  a  blended  cross  section.  The  process  begins 
as  before  by  (provisionally)  locating  the  correct  table  position  for  each 
parent  and  solving  the  set  of  equations  for  H.  The  subscripts  a  and  b  refer 
to  the  upstream  and  downstream  parent,  respectively,  and  £  is  the  weighting 
factor  for  the  downstream  parent.  The  resulting  H  may  lie  outside  the  range 
of  the  table  entry,  and  if  this  is  the  case,  the  table  pointer  would  be 
adjusted  and  the  process  repeated. 
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Subroutines 

174.  The  following  subroutines  are  used  for  calculating  the  flow  prop¬ 
erties  of  surveyed  and  blended  cross  sections: 

READXS  Reads  in  cross-section  data  from  a  specified  file  and  matches  cross- 
section  ID  codes  with  the  proper  node  designation. 

SHELL  A  sorting  algorithm,  used  by  the  scan  line  conversion  routine, 

adapted  from  The  C  Programming  Language  by  Kernighan  and  Ritchie . 

XSECT  The  scan  line  algorithm  which  converts  cross-section  coordinates  into 
a  table  of  area  A  and  width  B  versus  height  H. 

AFROMH  Calculates  A  given  H  for  a  surveyed  cross  section. 

HFROMH  Calculates  H  given  A  for  a  surveyed  cross  section.  For  a  blended 

cross  section,  routine  is  called  once  for  each  parent  and  the  results 
are  averaged. 

AFR0MH2  Calculates  A  given  H  for  a  blended  cross  section. 


Boundary  Conditions 


175.  For  the  system  of  equations  to  be  solved,  a  pair  of  boundary  con¬ 
ditions,  one  upstream  and  one  downstream,  must  be  known  for  all  time-steps. 
Either  flow  or  stage  is  given  for  the  upstream  condition,  and  either  flow, 
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stage,  or  a  rating  curve  can  be  given  for  the  downstream  condition.  The  six 
alternative  sets  are  given  in  Table  1  along  with  values  of  the  residual  matrix 
(see  Equation  190) .  The  rating  curve  must  be  of  the  form 

H  =  COEF  Q^0  (18Z0 


where 

H  =  depth  of  flow,  ft 
Q  *=  discharge,  ft3/sec 

Then  COEF  and  EXPO  are  input  in  the  "segment"  card  (see  Input  and  Output).  If 
the  rating  curve  is  instead  of  the  form  Q  =  aHb  ,  then  simply  set  EXPO  *=  1/b 
and  COEF  -  a("1/b)  . 


Table  1 

Library  (LIB)  of  Boundary  Conditions 


LIB 

Condition 

Condition 

En 

ai- 

—2 

— — 

^n-l— 

1 

H 

H 

0 

0 

1 

0 

1 

2 

H 

Q 

0 

0 

1 

1 

0 

3 

H 

RC 

RC 

0 

1 

DBCQ 

DBCA 

4 

Q 

H 

0 

1 

0 

0 

1 

5 

Q 

Q 

0 

1 

0 

1 

0 

6 

Q 

RC 

RC 

1 

0 

DBCQ 

DBCA 

Note:  H  *=  stage 

Q  —  flow 

RC  =  Equation  185 
DBCQ  =  Equation  186 
DBCA  —  Equation  187 

K>  al>  a2  >  a^,  am„1  are  stated  in  Equation  190 


176.  One  purpose  of  the  boundary  conditions  is  to  supply  values  for  use 
in  the  next  time -step.  A  boundary  condition  of  flow  can  be  used  directly.  A 
boundary  condition  of  stage  can  be  used  after  the  area  and  width  are  calcu¬ 
lated  from  it.  The  major  purpose  of  the  boundary  conditions  is  to  properly 
constrain  the  system  of  equations.  This  purpose  is  accomplished  by  treating 
the  equations  that  assign  values  to  the  boundary  conditions- -or  alternatively 
the  rating  curve  equation- -in  the  same  way  as  the  governing  equations.  The 
residual  is  placed  in  the  residual  matrix  R  and  the  partial  derivatives  are 
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placed  in  the  partial  derivative  matrix  AA  .  For  instance,  the  assignment  of 
the  upstream  boundary  condition  to  H  is  H  =  BCU  or  A  =  f(BCU)  where  f 
is  the  stage-area  function  and  BCU  is  the  value  of  the  upstream  boundary 
condition.  Isolating  all  known  quantities  on  the  left,  we  have 

A  -  f (BCU)  =  0  085) 

The  residual  is  equal  to  zero.  The  partial  derivative  with  respect  to  A 
is  1.  The  partial  derivative  with  respect  to  Q  is  0.  The  same  reasoning 
applies  to  the  downstream  condition  and  to  flow  Q  as  a  boundary  condition. 

177.  A  slightly  different  situation  is  presented  by  having  a  rating 
curve  as  the  downstream  condition.  Here  the  equation  is 

H  =  COEF*Qexpo  086) 

Now  this  is  not  an  assignment  statement,  but  a  constraint  on  the  behavior  of 
H  and  Q  .  Since  the  solution  scheme  involves  iterative  approximation,  Equa¬ 
tion  186,  when  coupled  with  the  governing  equations,  is  not  solved  exactly. 

It  leaves  a  nonzero  residual. 


H  -  COEF*Qexpo  =  R 


(187) 


This  residual  finds  its  place  in  the  residual  matrix  R.  The  partial  deriva¬ 
tives  of  the  above  equation  are  taken  with  respect  to  Q  and  A  .  These  are 
called  in  the  program,  respectively,  DBCQ  and  DBCA, 


=  EXPO*COEF*Qexfo‘1  (188) 

3Q 


d ( -R)  _  _  dH  =  _  1 
0A  dA  B 


(189) 
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The  matrix  becomes 


al  a2 

o' 

DFQ  DFA  DFQ1  DFAl 

AAi 

Rii 

DGQ  DGA  DGQ1  DGAl  0 

^2 

R2j. 

0  DFQ  DFA  DFQ1  DFAl 

^2 

CM 

H 

DGQ  DGA  DGQ1  DGAl  0 

R22 

0  DFQ  DFA  DFQ1  DFAl 

^3 

Rl3 

DGQ  DGA  DGQ1  DGAl 

AQ* 

R23 

am-l  aro 

1 

.V 

(190) 


with  a1  ,  a2  ,  am.1  ,  ,  and  Rj,  taking  on  values  which  depend  on  the 

value  of  LIB  (see  Table  1). 


Tributaries 


178.  The  major  concerns  in  designing  a  program  to  handle  tributaries 
are  that:  (a)  the  relevant  physics  be  modeled  with  fidelity;  (b)  the  program 
should  be  capable  of  handling  any  arbitrary  tributary  network;  (c)  it  should 
be  efficient  in  input  and  output,  computer  storage,  and  execution;  and  (d)  it 
should  be  amenable  to  possible  future  change. 

179.  In  this  program,  a  stream  network  is  envisioned  as  a  group  of  dis¬ 
crete  segments.  A  segment  is  defined  as  a  stretch  of  stream  whose  boundaries 
are  a  system  boundary,  a  receiving  stream,  or  a  control  structure.  No  control 
structures  are  permitted  within  a  segment.  Based  on  user- supplied  information 
about  each  segment,  the  program  constructs  the  network,  determines  an  upstream 
ordering  of  the  segments,  decides  what  types  of  boundary  conditions  apply  to 
each  segment  boundary,  and  determines  at  which  array  locations  each  of  these 
boundary  conditions  values  is  to  be  found.  An  upstream  ordering  assures  that 
when  the  turn  comes  for  any  given  segment  to  be  processed,  the  segment  it 
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feeds  into  has  already  been  processed.  Conversely,  a  downstream  ordering 
assures  that  when  the  turn  comes  for  any  given  segment  to  be  processed,  all 
segments  flowing  into  it  have  already  been  processed. 

180.  The  first  iteration  of  the  Newton-Raphson  method  at  each  time-step 
requires  new  boundary  conditions  to  be  assigned  at  all  time-varying  bound¬ 
aries.  Subsequent  iterations  require  new  values  only  for  boundary  conditions 
that  are  generated  within  the  systems,  i.e.,  tributary  junctions  and  flow 
through  control  structures.  The  program  then  assembles  and  solves  the  Newton- 
Raphson  matrix  for  the  entire  system  in  what  might  be  regarded  as  one  step. 

In  fact,  however,  the  matrix  is  assembled  and  reduced  segment  by  segment  as 
the  algorithm  proceeds  downstream.  When  the  final  segment  is  reached,  the 
process  is  reversed,  and  the  reduced,  partitioned  matrix  is  solved  completely, 
segment  by  segment  in  an  upstream  order. 

181.  The  detailed  features  of  this  algorithm  can  be  illustrated  by 
following  the  solution  of  a  simple  tributary  system  from  the  inside  of  the 
solution  scheme  out.  The  tributary  J  joins  with  the  mainstream  M  at  node 
K  .  In  the  remainder  of  this  section,  the  portions  of  the  governing  equations 
relevant  to  tributary  junctions  are  reviewed  and  placed  within  the  matrix 
structure,  and  the  solution  of  the  matrix  is  delineated.  Next,  the  way  the 
main  program  controls  the  flow  of  information  between  subroutines  and  coordi¬ 
nates  the  matrix  assembly  and  solution  is  described.  Finally,  the  method  of 
constructing  the  network  and  assigning  priority  and  boundary  conditions  is 
discussed. 

The  coefficient  matrix 

182.  The  governing  equations  are  discussed  in  Parts  II  and  III  but  are 
reviewed  here  as  the  structure  of  the  matrix  solution  is  intimately  tied  to 
the  structure  of  the  equations.  The  Newton-Raphson  method  assembles  a  set  of 
linear  equations  of  the  form 


A  •  x  =  R 


(191) 


where 


A  -  coefficient  matrix  with  elements  of  the  form  d  R1/3xj 

x  —  vector  of  increments  in  the  controlling  variables  (Q  and  A) 

R  -  vector  of  the  negative  residuals  from  the  governing  equations 
(continuity  and  momentum) 
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In  the  case  of  a  single  segment,  the  five -banded  coefficient  matrix  is  assem¬ 
bled  as  in  the  form  of  Equation  192,  with  three  fully  populated  bands  and  two 
extreme  bands  half -populated. 


i 

dFl/aQl  3F1/3A1  5Fl/aQ2  3F1/3A2 

aGi/aQi  aoi/aAi  aGi/aQ2  aGi/aA2  o 

0  aF2/aQ2  aF2/aA2  aF2/aQ3  aF2/3A3 

aG2/aQ2  aG2/aA2  aG2/aQ3  aG2/aA3  o 

0  aF3/3Q3  3F3/aA3  3F3/aQA  3F3/3A4 

aG3/aQ3  aG3/aA3  3G3/3Q4  3G3/3A4 
1 


(192) 


183.  In  the  case  of  a  single  tributary,  two  of  these  five-banded  struc¬ 
tures  are  placed  head- to- toe  and  nine  off-diagonal  members  are  added  to  handle 
junction  conditions,  as  in  Equation  194. 

184.  The  single  off-diagonal  element  in  the  first  quadrant  (-Bj/Bk) 
represents  the  condition  that  the  water  surface  elevation  at  the  mouth  of  the 
tributary  is  equal  to  that  at  the  junction  point  on  the  mainstream,  i.e. 

Ej  -  Ek  .  Taking  differentials,  dEj  =  dEK  .  However,  the  water  surface  ele¬ 
vation  is  the  sum  of  the  bed  elevation  and  the  depth  of  flow,  and  the  bed  ele¬ 
vation  is  taken  to  be  a  constant  at  any  node,  so  dHj  =  dHK  .  To  fit  into  the 
Newton-Raphson  scheme,  H  must  be  replaced  by  the  controlling  variable  A  , 
or 

dH.  =  dA.  •  — ?  =  dA.  —  =  dAK  —  (193) 

°  dAj  Bk 


As  it  appears  in  the  matrix 


186.  Conceptually,  the  solution  begins  with  reducing  the  second  quad¬ 
rant  to  the  identity  matrix  by  Gauss  elimination.  First,  the  extreme  diagonals 
are  eliminated  by  pair-wise  operations  on  the  rows.  Next,  the  lower  codiagonal 
is  eliminated  by  standard  tridiagonal  matrix  methods.  Finally,  in  eliminating 
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the  upper  codiagonal,  the  single  first- quadrant  element,  which  has  to  this 
point  been  untouched,  generates  a  column  of  numbers  above  it  (Equation  198). 
All  elements  of  this  column  are  proportional  to  the  single  original  element  in 
that  column,  -Bj/Bk  •  Because  of  this  fact,  that  element  can  be  given  the 
value  of  -Bj  provisionally  (as  the  tributary  does  not  "know"  the  value  of 
Bk)  ,  and  the  other  elements  can  be  multiplied  by  the  factor  1/BK  later.  The 
last  and  next- to- last  rows  in  the  tributary  portion  of  the  matrix  can  now  be 
brought  down  to  eliminate  the  eight  (six  nonzero)  third- quadrant  elements. 

This  elimination  changes  the  value  of  the  four  residuals  around  the  junction 
node  and  the  four  elements  of  the  coefficient  matrix  below  the  elements  Ci  . 
Following  the  numbering  in  Equations  194  and  198 
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3fk-i  x  dt  C6 
a,,.  =  -  +  -  B  — 


3Aj,  dXjj.j  Bk 


jk-i  .  2dt 


3Aj,  dXK_1 


Sf  5  .  _£L  e  iJ  IJ 

AJ  ®K  (^K-1  AJ, 


a..  =  -  +  -  cos  (p  0  —  —  +  -  t)  I  —  —  cos  <p 


3^K  +  dt0  ^6 
3Ak  Bk 


3^k  2dt  A  Qj  ^6  ,  dt  A  f  Qj  ]  Bj  , 

a,~  =  -  +  -  0  —  —  cos  <j)  +  -  0  —  —  cos  (f> 

5 A*.  dX*  Aj  Bk  dKj,  Aj  Bk 


R3  *  _FK-1  + 


dX^i  dX^ 


(199) 


-Gk  ,  +  __fl_  +  —  cos  <j>  R* 

«K-1  ^K-l  AJ 


R  «  -Fk  +  —  +  ^  R* 
5  K  dXjj  dX 


R  -  -Gk  +  —  6  cos  <f>  R * 

dXj,  dXj,  Aj 


Terms  that  do  not  have  to  do  with  the  main  stem  can  be  collected. 
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Tj  =  dt  0  C6 


T2  =  Fj  +  dt  0  R6 


T,  =  2dt  0  —  C,  +  dt  0  (^|  B,  cos  <f> 


(200) 


to  leave 


T,  =  G,  +  2dt  0  —  R* 

h  J  a  6 

AJ 


3FK-1  4 

Ti 

dAK 

dXK-lBK 

dGK-l  + 

T3 

3Ak 

dXj,_iBK 

_  3FK  + 

Ti 

dAK 

dX.B, 

_  3GK  + 

t3 

’  dAK 

:  _FK-1  + 

T2 

=  "GK-1  + 

T, 

d^K-l 

=  -Fk  + 

t2 

1  K 

(201) 


®-6  =  _GK-1  + 


187.  In  the  notation  of  the  program,  if  the  junction  occurs  at  node  i 
and  IR  -  2(i-l)  and  IA  -  5*IR 
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AA(IA-6)  =  a34 
AA(IA-2)  =  a44 
AA(IA+2)  =  a52 
AA(IA+6)  =  a62 

(202) 

R(IR)  =  R3 
R(IR+1)  =  R4 
R(IR+2)  =  R5 
R(IR+3)  =  R6 


The  terms  T1  through  T4  are  calculated  in  subroutine  CALC  when  it  solves 
the  tributary  portion  of  the  matrix  and  are  passed  back  to  that  subroutine 
when  it  is  called  to  work  on  the  main  stem.  The  adjustment  in  the  main  stem 
portion  of  the  matrix  and  residuals  vector  is  made,  and  the  main  stem's  system 
of  equations  can  be  solved  completely  by  Gauss  elimination.  This  leaves  all 
main  stem  variables  solved,  but  the  tributary  system  as  yet  undetermined. 

Once  the  coefficient  matrix  A  is  known,  however,  the  elements  CL  can  be 
eliminated  from  the  tributary  matrix  and  R**  can  be  calculated  from: 


(203) 


Then  R**  is  used  to  make  adjustments  in  the  controlling  variables  Q  and  A 
in  the  normal  way. 

Flow  of  information 

188.  The  preceding  scheme  can  be  generalized  to  handle  any  arbitrary 
system.  The  tributary  passes  to  the  receiving  stream  the  values  T1  through 
T4  and  also  K  ,  the  junction  node.  The  receiving  stream  passes  back  to  the 
tributary  the  value  AAK/BK  ,  placing  it  into  Ta.  In  the  general  case,  T  is 
an  array  of  dimension  (4, NS)  where  NS  is  the  number  of  segments  in  the  net¬ 
work.  Other  arrays  involved  in  this  information-passing  process  are  JT(NS), 
which  contains  the  junction  nodes  ITO(NS) ,  ITl(NS),  and  IT2(NS).  The  array 
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ITO(L)  tells  where  in  the  array  T  segment  L  should  place  its  tributary 
information  (ITO(L)  =0  if  L  is  not  a  tributary).  The  array  IT1(L)  gives  the 
index  within  the  array  T  of  information  from  the  first  tributary  entering 
segment  L,  and  IT2  gives  the  index  of  the  information  from  the  last  tributary. 
If  no  tributaries  enter  segment  L,  IT1  and  IT2  are  set  to  zero.  See  Figure  13 
(page  112)  for  an  example. 

189.  The  main  program  works  downstream  through  the  network,  and  for 
each  segment  L,  it  calls  subroutine  CALC  with  the  arguments  T,  JT ,  ITO(L), 
IT1(L),  and  IT2(L).  In  subroutine  CALC,  segment  L  picks  up  tributary  informa¬ 
tion  from  T  between  the  indices  IT1  and  IT2.  The  matrix  solver  is  called  and 
upon  return,  segment  L  loads  its  own  information  into  T  at  index  ITO.  The 
solution'  is  completed  by  sweeping  upstream  through  the  system;  for  each  seg¬ 
ment,  subroutine  NEW  is  called  with  the  same  arguments.  This  time  the  segment 
picks  up  information  from  T  at  index  ITO  and  distributes  information  to  its 
tributaries  at  indices  IT1  through  IT2 . 

190.  One  sweep  down  and  one  sweep  up  determine  the  system.  No  segment- 
wise  iteration  is  necessary.  Other  advantages  of  this  procedure  are  that 

(a)  it  allows  backwaters  up  tributaries;  (b)  the  coefficient  matrix  is  assem¬ 
bled  and  solved  in  pieces  as  required;  and  (c)  since  a  banded-style  solution 
is  done,  the  number  of  operations  performed  is  of  order  N  ,  where  N  is  the 
total  number  of  nodes  in  the  system.  In  addition,  since  the  scheme  is  gener¬ 
alized,  the  number  of  "bookkeeping"  operations  is  of  order  M  ,  where  M  is 
the  number  of  segments  in  the  system. 

Network  structure 

191.  The  user  provides  in  the  input  NS  the  total  number  of  segments, 
and  then  for  each  segment  L  gives  (among  other  data)  FEEDS (L)  and  JNODE(L) ; 
that  is,  which  stream,  if  any,  this  segment  flows  into  and  the  node  on  the 
receiving  stream  at  which  the  junction  occurs.  If  the  two  segments  are  parts 
of  the  same  stream,  but  separated  by  a  control  structure,  the  input  field  of 
JNODE  is  left  blank  and  so  is  taken  to  be  zero. 

192.  From  these  data,  the  program  infers  the  network  structure,  estab¬ 
lishes  an  upstream  ordering  of  the  segments,  determines  where  boundary  condi¬ 
tions  that  are  passed  from  segment  to  segment  are  to  be  found,  and  establishes 
the  packing  of  the  tributary- information-passing  arrays  JT  and  T.  The  latter 
is  done  by  fixing  the  values  of  ITO,  IT1,  and  IT2  for  each  segment. 

193.  The  program  begins  with  the  assumption  that  the  system  has  a  sin¬ 
gle  terminus.  Only  one  segment,  the  last  segment  of  the  main  stem,  does  not 
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flow  into  another  segment.  The  index  of  this  stream  is  the  first  entry  in  the 
array  ORDER.  Next  the  array  FEEDS  is  scanned  to  find  streams  that  feed  into 
this  first  stream,  and  they  are  successively  entered  into  ORDER.  Next,  the 
program  looks  at  the  second  entry  of  the  array  ORDER  and  scans  FEEDS  for 
streams  that  flow  into  it.  The  process  continues  until  the  array  ORDER  is 
completely  filled.  Whenever  a  match  is  found  between  a  tributary  J  and  its 
receiving  stream  M,  the  program  discriminates  between  JNODE  equal  to  zero  and 
JNODE  greater  than  zero.  In  the  former  case,  the  two  form  a  single  stream 
separated  by  a  control  structure.  The  segment  M  therefore  will  find  its 
upstream  boundary  condition  at  the  last  node  of  segment  J.  The  latter  is  the 
case  of  a  true  tributary.  Segment  J  will  find  its  downstream  boundary  con¬ 
dition  at  the  junction  node  on  M.  Also  a  new  slot,  IT,  is  called  for  the 
tributary- information  arrays  JT  and  T.  The  tributary  J  will  deposit  its 
information  in  slot  IT.  The  receiving  stream  M  will  withdraw  information  from 
slot  IT.  Using  the  definitions  of  ITO,  IT1 ,  and  IT2  given  above,  ITO(J)  is 
set  to  IT,  IT1(M)  is  set  to  IT  if  it  has  not  already  been  set,  and  IT2(M)  is 
set  to  IT. 

Boundary  conditions 
in  the  tributary  structure 

194.  For  each  segment,  the  user  specifies  what  types  of  boundary  condi¬ 
tions  will  apply  upstream  and  downstream.  Flow  or  stage  (designated  Q  or 

H)  may  be  given  upstream,  and  flow,  stage,  or  a  rating  curve  (designated  Q, 

H  ,  or  R)  may  be  given  downstream.  The  default  at  both  ends  is  stage.  Based 
on  this  input,  the  program  assigns  a  value  of  one  through  six  to  LIB  for  that 
segment  (Table  1) . 

195.  The  network  structure  may,  however,  override  this  assignment.  A 
segment  downstream  of  a  control  structure  must  have  an  upstream  boundary  con¬ 
dition  of  flow.  A  segment  that  is  a  true  tributary  must  have  a  downstream 
boundary  condition  of  stage. 

196.  Once  the  types  of  boundary  conditions  are  established,  the  ques¬ 
tion  is  from  where  are  the  values  of  the  boundary  conditions  to  come.  The 
answer  is  given  in  the  arrays  JBCU  and  JBCD  for  upstream  and  downstream, 
respectively.  The  default  is  that  the  boundary  condition  is  time- invariant 
and  is  given  on  the  "segment"  card  of  the  input  deck  (see  Input  and  Output 
formats).  In  this  case  JBCU  or  JBCD  is  given  a  value  of  zero.  The  second 
possibility  is  that  they  are  supplied  in  the  "boundary  conditions"  cards.  The 
user  indicates  to  the  program  which  boundary  conditions  will  appear  there  by 
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means  of  the  "boundary  conditions  identification"  card.  The  value  of  JBCU  or 
JBCD  is  set  to  the  position  of  that  piece  of  data  on  the  boundary  conditions 
card.  Finally,  as  indicated  above,  the  boundary  condition  may  come  from 
within  the  system;  for  example,  the  downstream  boundary  condition  for  seg¬ 
ment  L  might  come  from  node  J.  In  this  case  JBCD(L)  is  set  to  -J. 

197.  When  it  is  time  to  disburse  boundary  conditions,  again  three  cases 

arise.  If  JBCU  or  JBCD  is  equal  to  zero,  the  boundary  condition  is  time- 
invariant,  and  no  change  is  made.  If  JBCU  or  JBCD  is  positive,  then  the  boun¬ 
dary  condition  is  obtained  from  that  position  in  the  input  stream.  If  JBCU  or 

JBCD  is  negative,  the  boundary  condition  is  obtained  from  the  node  number 

-JBCU  or  -JBCD.  As  mentioned  previously,  an  internally  generated  upstream 
boundary  condition  must  be  a  flow.  An  internally  generated  downstream  bound¬ 
ary  condition  must  be  a  stage.  Stage  at  the  junction  point  on  the  receiving 
stream,  however,  is  not  equal  to  stage  at  the  mouth  of  the  tributary- - it  must 
first  be  corrected  for  the  difference  in  bed  elevation  between  the  two. 

Input  and  Output  Formats 

198.  The  input  to  the  hydrodynamic  model  is  provided  in  up  to  four 
files,  depending  upon  the  options  selected.  As  stated  previously,  RIV1H 
expects  an  execution  control  file  to  provide  the  names  of  the  input  and  auxil¬ 
iary  files  that  are  required  to  run  the  program.  The  main  input  file  contains 
information  on  the  model  configuration,  such  as  specification  of  constants, 
initial  conditions,  and  boundary  specifications.  Time-varying  boundary  condi¬ 
tions,  lateral  inflows,  and  spatially  varying  surveyed  cross  sections  are 
specified  in  separate  files.  The  structure  of  these  files  is  described  below. 
DOS  extensions  to  the  filenames  are  enforced.  The  main  input  file  should  have 
the  extension  *.INP,  the  time-varying  lateral  inflow  file  the  extension  *.LAQ, 
the  boundary  condition  file  *.BCF,  and  the  surveyed  cross-section  data  file 
the  extension  *.XSF.  Similarly,  output  files  will  have  the  same  name  as  the 
input  file,  but  with  the  extension  *.OUT  for  the  main  output  file,  *.HYD  for 
the  interface  file  for  the  water  quality  model,  * . ERR  for  the  error  file,  or 
*.HDF  for  the  dump  file  containing  data  for  graphical  post -processing. 

Main  input 

199.  Input  to  RIV1H  consists  of  eight  types  of  cards:  (a)  a  title 
card,  (b)  a  grid  card,  (c)  a  constant  card,  (d)  segment  cards,  (e)  initial 
conditions  cards,  (f)  a  boundary  conditions  identification  card,  (g)  time-step 
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cards,  and  (h)  boundary  filename  specification  cards.  The  details  of  the 
input  cards  are  discussed  in  the  following  paragraphs,  and  examples  are  given 
in  Figure  11.  Output  consists  of  the  input  data  followed  by  the  values  of  the 

SAMPLE  RIV1H  DATA  SET  -  USER'S  MANUAL 
40,  1983,6,18,0.0,  1983,6,20,17.0,3 
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Figure  11.  Sample  RIV1H  *.INP  input  data  file 
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hydrodynamic  variables  for  every  node  of  each  segment  (one  segment  per  page) 
for  each  time -step  print  interval.  In  addition  to  printed  output,  there  is 
output  onto  disk  storage  for  later  use  by  RIV1Q  or  plotting  programs. 

200.  Title  card.  The  user  has  the  first  80  columns  of  the  title  card 
to  write  any  appropriate  title.  It  will  be  printed,  verbatim,  at  the  top  of 
every  page  of  the  output  file. 

201.  Grid  card.  The  grid  card  defines  the  total  number  of  nodes,  start 
and  end  times  for  the  simulation,  and  segments  in  the  run.  The  format  of  the 
start  and  end  times  are  year,  month,  day,  hour,  where  the  year,  month,  and  day 
are  integers  and  the  hour  is  real  (decimal  fraction) .  The  number  of  nodes  and 
segments  are  integers .  The  ten  numbers  can  appear  anywhere  on  the  card  and 
can  be  separated  by  a  comma  or  blanks  or  both,  but  they  must  appear  in  the 
following  order:  nodes,  start  year,  start  month,  start  day,  start  hour,  end 
year,  end  month,  end  day,  end  hour,  and  segments.  Note  also  that  the  node 
numbers  correspond  to  grid  lines,  not  intervals.  For  instance,  if  the  study 
area  extends  from  river  mile  1.0  to  river  mile  0.0  with  0.1 -mile  reaches,  the 
number  of  nodes  is  11,  not  10. 

202.  Constant  card.  There  are  seven  variables  that  may  be  assigned 
values  on  the  constant  card:  BETA,  GR,  RMILEO,  THETA,  TOLER,  IQL,  and  IXS . 

The  variable  RMILEO  is  the  river  mile  of  the  first  node.  The  variable  THETA 
is  the  weighting  factor  (see  The  Governing  Equation,  Part  IV).  Historically, 
models  of  this  type  have  used  a  value  of  0.55, or  greater  for  stability  rea¬ 
sons  .  This  is  the  default  RIV1H  uses . 

203.  With  some  applications,  a  value  of  THETA  higher  than  0.55  (between 

0.55  and  1.0)  may  be  desirable  to  reduce  parasitic  oscillations  (Liggett  and 
Cunge  1975).  Parasitic  oscillations,  which  are  actually  numerical  dispersion 
or  phase  errors  associated  with  short  waves,  can  cause  modeling  problems  when 
the  parasitic  oscillation  is  on  the  same  order  of  magnitude  as  the  depth  (a 
negative  depth  can  result).  Values  of  THETA  between  0.6  and  0.75  have  been 
used  to  reduce  these  oscillations  without  significant  loss  of  accuracy.  How¬ 
ever,  accuracy  does  decrease  as  THETA  is  increased  because  of  increased  numer¬ 
ical  dampening.  The  requirement  for  numerical  stability  is  0.5<  6<1.0. 

204.  The  variable  TOLER  is  the  maximum  acceptable  relative  tolerance 
used  by  the  program  to  decide  whether  another  iteration  is  necessary.  The 
default  value  is  0.001;  that  is,  iteration  will  stop  when  the  difference 
between  current  and  previous  estimates  of  flow  and  area  for  every  node  is  less 
than  0.001  times  the  root  mean  square  of  all  flows  and  areas,  respectively, 
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throughout  the  system.  If  the  user  desires  greater  accuracy  and  has  a  stable 
system,  a  lower  value  of  TOLER  may  be  desired.  Conversely,  if  the  user 
requires  less  accuracy  and  swifter  computation  time,  then  a  higher  value  may 
be  desired,  such  as  0.1.  This  value  has  yielded  acceptable  accuracy.  It 
should  be  pointed  out  that  TOLER  is  a  control  on  precision  from  one  time-step 
to  the  next- -not  from  the  beginning  of  the  run  to  the  end. 

205.  The  variable  GR  is  acceleration  caused  by  gravity.  Its  default 
value  is  32.174  ft/sec2.  If  the  user  wishes  to  make  a  run  in  SI  units,  then 
GR  should  be  set  at  9.80  m/sec2.  Several  things  to  keep  in  mind  in  this  case 
are  that  the  river  miles  in  the  output  are  meaningless,  the  Manning's  coeffi¬ 
cient  must  be  multiplied  by  1.49,  and  the  output  is  not  usable  in  RIV1Q.  The 
variable  BETA  is  the  momentum  correction  factor,  with  a  default  value  of  1.0. 
The  variable  IQL  specifies  the  option  for  lateral  inflows.  If  IQL  is  greater 
than  or  equal  to  one,  then  time-varying  lateral  inflows  will  be  expected,  and 
the  lateral  inflow  file  name  is  given  in  the  second  line  of  RIV1H.CTL.  The 
variable  IXS  specifies  the  option  for  cross  sections.  If  IXS  is  greater  than 
or  equal  to  one,  then  the  name  of  the  file  containing  the  surveyed  cross- 
sectional  data  should  be  listed  on  the  third  line  of  RIV1H.CTL. 

206.  The  form  of  the  constant  card  is  similar  to  the  grid  card.  Vari¬ 
ables  are  read  in  free  format  and  must  be  in  the  following  order:  BETA,  GR, 
RMILE0,  THETA,  TOLER,  IQL,  and  IXS.  The  variables  BETA,  GR,  RMILEO,  THETA, 
and  TOLER  are  real  numbers ,  while  IQL  and  IXS  are  integers .  The  variables  can 
be  separated  by  spaces  or  a  comma  (see  Figure  11). 

207.  Print  update  card.  The  print  update  card  identifies  the  number  of 
print  interval  updates  that  will  be  read  from  the  following  card. 

208.  Print  interval  card.  On  the  print  interval  card,  the  user  speci¬ 
fies  pairs  of  data  containing  the  print  interval  in  hours  and  the  Julian  day 
for  the  print  interval  update .  The  print  intervals  allow  the  user  to  print 
more  frequently  during  critical  periods  of  the  simulation.  The  format  of  the 
update  cards  is  n  pairs  of  print  intervals  and  Julian  days  (both  real) ,  where 
n  is  the  number  of  print  interval  updates  specified  on  the  print  update  card. 

209.  Segment  card.  On  the  segment  card,  the  user  specifies  segment- 
specific  data:  ID,  the  identification  number;  SNAME,  the  name;  NNODE,  the 
number  of  nodes  in  this  segment;  FEEDS,  which  segment  it  flows  into,  if  any; 
JNODE,  the  number  of  the  junction  node  on  the  receiving  stream;  BTU,  the  type 
of  boundary  condition  imposed  at  the  upstream  end;  BCU,  a  value  for  that 
boundary  condition  if  it  is  time -invariant;  BTD,  the  type  of  boundary 
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condition  imposed  on  the  downstream  end;  BCD,  a  value  for  that  boundary 
condition  if  it  is  time- invariant ;  and  COSP,  the  junction  angle  in  degrees  if 
the  segment  is  a  tributary.  The  format  is 

I2,A40,3I3,2(A1,F8.0) ,F8.0. 


The  choice  of  identification  number  and  the  ordering  of  the  segment  cards  are 
arbitrary.  The  only  constraint  is  that  identification  numbers  used  here  must 
be  consistent  with  those  used  in  the  water  quality  model  and  they  must  be  pos¬ 
itive.  The  segment  name  can  be  up  to  40  characters  long.  It  has  no  use  in 
the  model  other  than  labeling  output.  NNODE  counts  the  total  number  of  nodes 
in  the  segment,  which  is  one  more  than  the  number  of  reaches.  FEEDS  refers  to 
the  receiving  stream  by  its  identification  number.  JNODE  refers  to  the 
junction  node  on  the  receiving  stream,  starting  with  the  first  node  of  the 
stream  equal  to  one.  Referring  to  Figure  9,  JNODE  for  Segment  1  would  be  10. 
When  two  segments  are  actually  part  of  the  same  stream  but  separated  by  a 
control  structure,  JNODE  is  left  blank  (control  structures  are  not  permitted 
within  a  segment,  only  at  the  boundaries).  The  boundary  type  H  signifies 
stage,  depth  above  bottom  (and  is  the  default),  Q  signifies  flow,  and  R 
signifies  a  rating  curve.  A  rating  curve  is  not  a  permissible  upstream  bound¬ 
ary  condition.  The  value  of  the  boundary  condition  is  in  feet  for  stage  and 
cubic  feet  per  second  for  flow.  COSP  is  the  angle  formed  by  the  tributary 
junction,  in  degrees.  See  Figure  9  for  the  sense  of  this  angle.  In  the  case 
of  a  rating  curve  of  the  form 


H  -  C0EF*QEXP0  (204) 

the  exponent  EXPO  is  given  in  place  of  BCD  and  COEF  in  place  of  COSP .  There 
is  no  conflict  as  a  tributary  cannot  be  terminated  by  a  rating  curve.  If, 
instead,  the  rating  curve  is  of  the  form  Q  *  aHb  ,  then  set  EXPO  -*  1/b  and 
COEF  -  . 

210.  Initial  conditions  card.  Each  segment  card  is  followed  by  a  set 
of  initial  conditions  cards,  one  per  node.  Twelve  pieces  of  data  can  appear 
on  each  initial  conditions  card.  Each  number  can  occupy  a  field  of  six.  Any 
right-justified  number  without  a  decimal  point  will  be  taken  as  having  a  deci¬ 
mal  point  at  the  end  (e.g.,  25  will  be  read  as  25.0).  Any  value  not  specified 
will  be  taken  as  zero.  These  pieces  of  data  are,  in  order:  length  of  the 
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reach  downstream  from  the  node  in  feet  (DX1) ;  flow  in  cubic  feet  per  second 
(Q) ;  stage-height  of  water  above  the  channel  bottom  in  feet  (H) ;  constant 
(time -invariant)  lateral  inflow  in  cubic  feet  per  second  per  foot  (QL)  (flow 
divided  by  DX1) ;  streambed  elevation  relative  to  some  datum  in  feet  (Z,  ini¬ 
tially  EL  is  used  and  moved  into  Z  array),  (Cl),  (C2) ,  and  (C3)  constants  in 
the  cross-section  formula  (see  Cross-Section  Formulas,  above);  Manning's  coef¬ 
ficient  for  the  reach  downstream  of  the  node  (CN1) ;  constriction  energy  loss 
coefficient  for  the  reach  downstream  of  the  node  (KE1) ;  intercept  of  the  lin¬ 
ear  equation  relating  Manning's  n  to  depth  of  flow  in  the  stream  (AX);  and 
the  slope  (DNDH)  of  the  linear  equation  relating  Manning's  n  to  depth.  If 
the  user  elects  to  use  surveyed  cross  sections  (IXS  >  1),  then  in  place  of  the 
constant  Cl,  the  user  specifies  an  alphanumeric  code  (up  to  six  characters) 
identifying  the  cross-sectional  data.  For  blended  cross  sections,  the  field 
for  Cl  is  left  blank.  The  term  KE1  should  be  used  only  when  there  is  a  rapid 
constriction  in  the  channel  and  only  after  it  has  been  determined  that  refin¬ 
ing  the  grid  work  in  the  area  of  the  constriction  is  infeasible.  Values  for 
KE1  range  from  0.0  to  0.5,  with  the  higher  value  associated  with  abrupt 
constriction. 

211.  Manning's  n  at  a  cross  section  can  vary  with  flow  conditions  in 
many  streams.  High  values  may  be  more  representative  for  shallow-depth  condi¬ 
tions  whereas  lower  values  may  be  appropriate  for  deeper  flow.  For  time- 
varying  flow  conditions,  a  variable  Manning's  coefficient  may  have  to  be 
adjusted  as  a  function  of  depth  during  the  simulation.  Typically,  shoal  areas 
exhibit  a  variable  n  that  can  have  a  significant  effect  on  computed  stage; 
at  low  stage,  n  is  usually  larger  than  at  high  stage.  If  the  user  wishes  to 
allow  for  variable  Manning's  coefficients,  the  values  of  AX  and  DNDH  in 
the  input  data,  which  appear  on  the  initial  conditions  card,  should  be  set  to 
the  appropriate  values.  If  the  user  chooses  not  to  vary  Manning's  n  ,  these 
values  should  be  set  to  0.  The  equation  relating  Manning's  n  to  depth  is 
XMAN  AX  -  DNDH*H  where  H  is  the  value  for  depth  at  a  particular  node. 
During  initiation,  XMAN  is  set  to  the  original  value  (CN1)  at  that  node.  As 
the  program  executes,  XMAN  is  adjusted  with  relation  to  depth  over  time.  If 
at  some  point  during  the  execution,  the  value  of  XMAN  becomes  less  than  0.01, 
XMAN  is  reset  to  0.01.  If  this  event  occurs,  a  message  is  printed  to  the 
diagnostic  file,  FILE7 .  The  first  location  in  the  code  where  the  adjusted 
Manning's  values  occur  is  several  lines  after  statement  301  while  the  second 
location  is  several  lines  after  statement  170. 
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212.  Boundary  conditions  identification  card^  On  the  boundary  condi¬ 
tions  identification  card,  the  user  indicates  which  time -varying  boundary 
conditions  will  be  provided  in  external  boundary  conditions  files  (for  flow  Q 
and  head  H  boundary  conditions  only).  As  an  example,  consider  a  system  with 
two  segments  separated  by  a  control  structure  where  segment  1  is  the  reach 
above  the  structure  and  segment  2  is  the  reach  below.  The  upstream  and  down¬ 
stream  boundary  conditions  will  be  specified  for  segment  1,  whereas  the  down¬ 
stream  boundary  condition  will  be  specified  for  segment  2.  The  upstream 
boundary  condition  for  segment  2  (below  the  control  structure)  is  determined 
internally  by  the  program.  The  card  would  appear  as 

+1,-1, -2/ 


with  the  numbers  being  the  ID  numbers,  the  positive  sign  standing  for 
upstream,  and  the  negative  for  downstream.  The  list  must  be  terminated  by  a 
slash. 

213.  Time- step  update  card.  On  the  time-step  update  card,  the  user 
indicates  the  total  number  (NUM)  of  time-step  updates.  A  minimum  of  two 
update  cards  is  required  (even  if  the  time-step  does  not  change)  or  the  pro¬ 
gram  will  abort  (see  bottom  of  Figure  11).  The  format  is  110.  In  the  fol¬ 
lowing  cards,  a  total  of  NUM  time -step  cards  must  be  provided. 

214.  Time -step  update  interval  card.  On  the  time -step  update  interval 
card,  the  user  indicates  the  year,  month,  day,  and  hour  of  the  update  and  the 
model  time-step  (seconds)  which  will  apply  for  the  period  between  that  period 
and  the  next  update  interval.  The  format  of  the  update  card  is  315,  2F10.0. 
There  must  be  NUM  update  intervals  specified. 

215.  Boundary  condition  cards.  On  these  cards,  the  user  specifies  the 
file  names  containing  the  time -varying  boundary  condition  data.  The  number  of 
files  specified  and  their  order  should  correspond  to  the  boundary  conditions 
identification  card.  The  format  is  A15  for  each  card. 

Boundary  conditions  file(s) 

216.  Time-varying  boundary  conditions  are  specified  in  external  files, 
whose  names  are  specified  in  the  main  input  data  set.  An  example  of  the 
boundary  condition  file  (with  DOS  extension  *.BCF)  is  given  in  Figure  12.  The 
first  line  of  these  files  contains  the  segment  number  for  which  the  boundary 
is  provided,  the  number  of  boundary  condition  updates  (NUMBC)  ,  and  the 
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Figure  12.  Sample  RIV1H  *.BCF  input  data  file 


variable  INTBC.  If  the  variable  INTBC  is  greater  than  or  equal  to  one,  the 
boundary  conditions  will  be  linearly  interpolated  between  update  intervals. 
Otherwise,  they  will  be  held  constant  between  updates  (a  step  function).  The 
format  of  the  first  line  of  the  file  is  3110. 

217.  Following  the  initial  line  of  the  boundary  condition  file  are 
NUMBC  lines  of  update  intervals.  Each  line  of  update  will  contain  the  year, 
month,  day,  and  hour  for  the  update  and  the  corresponding  boundary  condition 
(flow  or  head).  The  format  for  these  lines  is  315,  2F10.0.  The  update  times 
should  bracket  the  period  of  model  simulation. 

Lateral  inflow  file 

218.  The  lateral  inflow  file  contains  the  time-varying  lateral  inflows. 
If  the  user  elects  to  input  time-varying  lateral  inflows  (IQL>1),  the  file 
name  (with  DOS  extension  *.LAQ)  should  be  given  in  the  second  record  of 
RIV1H.CTL.  An  example  of  the  lateral  inflow  file  is  given  in  Figure  13. 
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Figure  13 . 

Sample  RIV1H  * 

.LAQ  input 

data  file 

219. 

The 

first  line 

of  the  lateral 

inflow  file 

i  contains 

the  spec 

ifica- 

tions  for  the  number  of  updates  (NUMLAT_UD)  ,  the  number  of  nodes  which  will 
receive  lateral  inflows  (NUML) ,  and  the  variable  LATOPT.  If  the  variable 
LATOPT  is  greater  than  or  equal  to  one,  the  lateral  inflows  will  be  linearly 
interpolated  between  update  intervals.  Otherwise,  they  will  be  held  constant 
between  updates  (a  step  function).  The  format  for  this  line  is  315. 

220.  Following  the  initial  line  of  the  input  will  be  NUML  lines  on 
which  the  node  numbers  that  will  receive  the  lateral  inflows  are  specified. 

The  node  numbers  correspond  to  the  order  specified  in  the  main  input.  The 
format  is  15,  so  there  will  be  one  node  specification  per  line  of  input. 

221.  Following  the  specification  of  node  numbers,  there  will  be 
NUMLAT_UD  lines  of  input  specifying  the  date  (year,  month,  day,  hour)  followed 
by  the  lateral  inflow  (flow  rate  per  unit  length)  for  each  of  the  NUML  nodes. 
The  format  of  these  lines  of  input  is  315,  150F10.0. 

Surveyed  cross-section  file 

222.  The  type  of  cross  section  employed  at  any  particular  node  is  indi¬ 
cated  on  the  initial  conditions  card  for  that  node.  For  surveyed  cross  sec¬ 
tions  this  is  done  by  placing  an  alphanumeric  code  (up  to  six  characters)  in 
the  field  normally  reserved  for  the  constant  C1.  For  blended  cross  sections 
leave  the  field  blank. 

223.  The  cross-section  data  themselves  are  given  in  a  separate  file 
(Figure  14)  whose  name  (with  DOS  extension  *.XSF)  is  given  in  the  third  record 
of  the  control  file.  The  option  for  using  surveyed  cross  sections  (IXS  >  1) 
is  specified  on  the  constant  card  in  the  main  input  file.  The  cross-section 
file  has  the  following  format.  Each  cross  section  has  a  six- character  ID  code 
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Figure  14.  Sample  RIV1H  *.XSF  input  data  file 


followed  by  an  optional  description.  On  succeeding  records  are  the  X  and  Y 
coordinates,  in  2F10.0  format,  with  the  origin  for  X  and  Y  beginning  at  the 
top  of  the  left  streambank,  where  X  increases  to  the  right  and  Y  increases 
downward  when  looking  downstream.  No  other  delimiters  or  separators  are 
required.  Units  are  in  feet.  As  with  the  algebraic  method,  the  channel  bed 
elevation  is  understood  to  refer  to  the  absolute  lowest  point  in  the  surveyed 
cross  section. 

Output 

224.  Output  from  RIV1H  consists  of  several  files.  One  of  the  files, 
which  will  have  the  DOS  extension  *.0UT,  consists  of  the  input  data  and  the 
simulation  results  at  specified  print  intervals.  The  simulation  results  con¬ 
tain  the  information  for  each  segment  at  each  time-step  print  interval,  one 
segment  per  page.  At  the  top  of  the  page  appears  the  program  title.  The  next 
line  prints  the  run  title  as  supplied  by  the  user.  On  the  following  lines  are 
the  time -step  number  and  the  elapsed  time  in  the  simulation,  in  year,  month, 


114 


day,  hour,  followed  by  the  segment  ID  number  and  name.  Below  that  are  column 
headings  and  data  for  river  mile,  flow  (cubic  feet  per  second),  area  (feet), 
width  (feet),  stage  (feet),  and  water  surface  elevation  (feet)  (Figure  15). 

The  output  file  also  is  updated  whenever  there  is  a  change  in  the  time -varying 
(time-step,  boundary  condition,  or  lateral  inflow  data),  with  the  update  time, 
new  value ,  and  next  update . 

225.  Another  output  file  is  in  standard  FORTRAN  unformatted  records 
used  as  input  to  RIV1Q  and  is  written  to  a  file  with  the  name  of  the  main 
input  file  but  with  the  DOS  extension  *.HYD.  The  records  are  organized  as 
follows: 

Record  1  MNODE, STARTIME, ENDTIME, SYEAR, NS 
Record  2  JT , ITO , ITI , IT2 , NNODE , N0DE1 , ID , JBCU 
Record  3  DX1 , QL , RMILE 

Record  4  DT,Q,A,B,EL 


where  all  variables  are  arrays  except  for  MNODE,  STARTTIME,  ENDTIME,  SYEAR, 

NS,  and  DT.  Record  4  is  contained  in  the  array  HYDRO  (with  exceptions  of  DT) 
and  is  written  every  time -step,  as  this  information  is  required  to  drive  RIV1Q 
and  plot  hydrodynamic  output.  All  succeeding  records  are  identical  to 
record  4  but  for  succeeding  time-steps.  A  diagnostics  output  file  (file  7)  is 
generated  under  certain  conditions  during  the  execution  of  RIV1H.  If  the 
Courant  number  becomes  less  than  1.0,  if  Manning's  n  becomes  less  than  or 
equal  to  0.01,  or  if  the  depth  goes  below  0.0,  then  a  message  is  written  to 
file  7  telling  the  user  at  which  node  this  event  occurred.  If  the  program  has 
trouble  converging,  a  diagnostic  message  is  written  to  file  7,  allowing  the 
user  to  examine  the  node  at  which  nonconvergence  is  occurring. 


Special  considerations 

226.  Upland  streams  characterized  by  riffles  and  pools  can  be  difficult 
to  model  with  hydraulic  routing  models,  such  as  RIV1H.  Generally,  two  types 
of  problems  may  be  encountered:  start-up  of  the  model  and  phase  errors 
associated  with  unsteady  flow  waves .  Streams  with  riffle  sections  accentuate 


these  problems . 

227.  If  inaccurate  initial  depths  are  selected  for  the  initial  flows, 


the  model  will  have  trouble  getting  started.  If  good  initial  estimates  of 
depths  are  not  available,  it  is  best  to  run  the  model  for  a  steady-state  flow 
condition  using  deeper  than  expected  conditions.  With  a  constant  inflow  rate 
and  either  a  constant  head  or  rating  curve  downstream,  the  water  surface  in 


the  segment  will  eventually  drop  to  a  steady- state  water  surface  profile 
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SAMPLE  RIV1H  DATA  SET  -  USER'S  MANUAL 
NUMBER  OF  NODES  -  AO  NUMBER  OF  SEGMENTS 
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Figure  15.  Sample  RIV1H  *.OUT  output  data  file  (Sheet  1  of  14) 
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SAMPLE  RIV1H  DATA  SET  -  USER’S  MANUAL 
TIME  STEP  (sec)  -  450.00 
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Figure  15.  (Sheet  4  of  14) 


IOOOOO 

com  mmm 
co  ©  ©  ©  © 


t>C  ^OOOOOOOOOOOOOOOOO 
C  eo«mnininintntninininminininift*n»n 
•H  *JOOOOOOOOOOOOOOOOO 

§  oooooooooooooooooo 


bO  r>-  O  O  O  O  O 

C  inc'i'Jinin 

•H  <r  ©  O  ©  ©  © 

d  . 

d  oooooo 
« 
z 


c 

o 

W  49 

2  oo 

COON©©© 

u  c 

CM  pH  ia  (A  IA 

2  d 

amooo 

g  § 

©  ©  ©  ©  © 

o  z 

n 

< 

z 

CM  VO  NO  NO  NO 

maaa-a 

CM  CM  CM  CM  CM 

00  00  oooooo 

a  «aa-aa 


oo^aH»nooNOO\vo«oo'Ofo<-io 

eoar-co  —  r'-f--©— ir'-oomiACMapH©© 

W  4-1 . 

co  fti-HOOOorsinfnONonoooNNNOir»irnnin 
^  «>ointfuoin«o»oaa’'a<np^nnnnr,m 
haaaaaaaaaaaaaaaaaa 


O'OIANO'O 

no  -a-  o\  r*'  rs.  no 

pJ  -^NSONNNN 

W  4J . 

CO  4)  CM  On  On  On  On  O' 
tt  0)  ON  00  00  00  CO  CO 

h  a  a  a  aa  a 


oo  co  cm  a  vd 


Z  W  «M . 

to  0)  m  cm  co  ON*n 

ft  Cl  O  O  On  00  00 

—4  fti  IA  *A  a  a  a 


-h  rssoinin 
CM  V0  NO  MO  NO 
m  on  on  on  -a 


oo\aHoonoor^ooNM>Nf)00'Of0^o 
coac'co— •r''r'©pHr'OomiACMa— <©© 
^^NNaoNONCoiONOONaoNNinoNcoiniAO 

4-1  . . 

fui'onn^-H^^HHrHNnnnNvootn 

4i  ci  — 

Ob 


ovomsovo 
vo  a  on  p*-  p*-  vo 
43  --'CM  NoarsNN 

4J  4J . 

ft  ci  vt^h  aS'O'O 
41  01 
Oh 


no  cm  r-a  co 
co  co  cm  a  no 
.d— ©-<  a-phno 
4J  4J . 

cx  ci oo  oo  — <  vr  ~h 

O  01 
Q  h 


NNNNN 
a  cm  r>-  cm  r-'. 
or'ooor' 

a-Haao 
lA  NO  On  CO  00 
cm  cm  cm  co  co 


>  ian©  r^co  oo  m  m  coNoa  a  a  oncm  r'ma  © 

5  ooon  onA'OO  a  on  on  no  coa  cm  on©  ©  on©  © 

•  43  —00  On  00  -HONr^OOOOONN-ONO^NO  —  r-'ON© 

1  4J  4-> . 

«  no  cyr^r'— »  —  <roo  —  f^ON<r-HCAON©ONCMONCA 
•H  4)  CO —4  pH  ©©©  pH  CM  a  NO  On  pH  CO  VO  A- CO  00  NO 
JJthCMCMCMCNlCMCMCMCMCMCMCMCOCOCOCONOOOpH 


>  cm  ia  »  a  co  ia 

-  no  m  f'  a-  c*.  a- 

•  41—  m  cm  co  t--.  co  a 

>  4J  4J . 

-D  0)  CM  NO  —l  CM  NO  CM 
ft  C>  ©  a  NO  00  CO  00 
JShCMpHpH-HCMCM 


>  cm  on  ©  -h  cn 

5  CM  ON  ©  ©  00 

•  43  —CM  N  NCOn 

>  4J  4J . 

>  t)  01  <A  00  On  CM  NO 
r  *H  0)  O  ©  On  O  a 

pc  h  00  CM  CM  CM 


>N 
U  U 
3  * 

O  T3 

pc  d 

-  3 

oncoiaoncm  oo  o  cm -h  co  co  m  on  on  oo  no  m  a» -h  m  co  on  ph  no  © 

OOlAf'-HCV  pH  OQ  —  mm  COCM  CM  00  A-mOlA  A»OnON  A- CM  00  IA  © 

©  a  pH  On  CM  4J  CM  IA  ©aa  C*1  ONOQNO  ©  OnOn  A*©  ONCO  lAiA 

.  £  d  «4H . 

aoo^Oa  >v  <*j  ci  co  co  cm  cm  oo  a*  cm  co  cm  oo  co  a*  oo  co  m  a- m  cm 
cm  no  On  ©  a  «  ci  u  err-*  oo  *-h  oo  oo  oo  co  no  a*  oo  m  on  a- oo  vo  a  co  a- 

On  lA  IA  00  O  Q  U  <  CO  CO  A-  A*  CO  CO  CO  CO  CO  a  CO  00  ON  pH  CO  ©  ©  — t  ON 

coaiANOoo  -4J  i  <r  Os  no 

4)  OQ 

C  P 
3  3 
NO  O 

a 


>s 

u  u 
3  <a 

o  *o 

EC  d 
-  3 

oo  o  on  cm  a  - 

pH  n  —  COpHOMAC 

4J  *ANO  —ICOC 
G  CO  *4-1 

tl  OOiAiACMC 

cd  ci  wi  cro  co  oo  oo  - 

O  kl  <  <0  OO  CM  NO  CM  W 


>  NN-IAOnOn 

l  —  C'  CO  O  CM  a 
4J  CM  ON  CM  A-  00 

i  <4  *44 . 

i  ci  r-'00iACM*a- 
i  u  ctcono  ia  ©  © 
i  <  «a  ©  -a*  — *  oo  a 

i  I 


NO  A-  CM  Ox  © 

r-  no  no  co  o 

r^aacNi© 

IA  co -a-©© 
NO  CO  ON  IA© 
m  m  a  a  a 


•  I  •  3 
043©  8 

SG  4J  ©  -< 

C  a  U4 


^  a  i-i 

O  ON  « 
WON-O 

e 

I  3 

pS  o 

O  u  00  U 
h  CO  Cl 
4>  G  > 
H  «  *H 
b  o  pd 

Pi  kl 

go  4J 

G  « 

O  -A  CL 

H© 


OOn<hiAnDNOVQ-iNOHOOnOnONNnO 

©©r'CM©NO©oor^»ONCMCM-aT*'OOoooN 

— ©  ia  a*  ©  cm  co  a.  no  oo  o\  on  no  oo  ©  no  no  cm  a 

. . * . 

mo— <conooo— •<a,©ON*a'co©NOcMco— •coco 
0©0©©©^*^CM<r©»CMP^-400©0© 
n— ■ -*a-  'T'a--a'a,<r'a-'a-'a“iAiAf,,«*«©©— 


0NMAN«-t^O»AO»A0N©H^NlAf'O 
dCM<TN£>00— t^a-A-OOO— ^ iCMCM— lOONONON© 

pH . . 

•HiAvrcocMcM— i©ONONC0r«*N©iA'a,«M-H©© 
Jg  —  W  m  —4  m  —4  pH 


pHNAaiANOP'COONO'HCMnatA'ftP'OO 


•  I  •  3  « 
043©  8m 
sc  4JtA— I  V 
c  CM  h 


©no  pHco-avo 

©pHOOCNN 

'©no -a  ©  onia 

0 . 

4  ©  ©  CM  IA  P'  © 
)  IA  IA  IA  IA  IA  NO 
-CM  CM  CM  CM  CM  CM 


©ON  « 

U  on  -o 
W-H  C 
I  3 
PC  o 

O  kin  u  « 

h  «e  41—1 

ci  e  >  'H 

H>4 

b  ci  pS 

h  ••  ki 

H  41  4J 

b  I  « 

o  -rJ  Ck 
H© 


H 

3t  4J  ©  — ( 

W 

d  nA  h 

w 

H  o 

zz 

<  1 

W  “  &S 

H 

£n  k 

<  — 

O  00  CO 

O  o 

W  0-0 

-^nNONO 

ia  ©  •a  on  co  © 


CM  CM  PH©  ©  © 


Niorv 
©IA  IANO  pH 
—  ©  r-  ©  On  CM 

t  03 . 

)  m  ©  CO  IA  ON  CM 


a  3 

PC  O  NO  ©  pH  IA  CO 

O  k«n  ki  upsooNa 

h  «  41— I . 

ci  G  >  *H  r>.  c-  no  ia  *a 

fH>4  Cd-HJCCMCMCMCMCM 

b  o  pc 

tk,  ••  kl 

gd  4-1 

G  « 

o  *r4  ft  — I  CM  COMT  IA 


Ci  4-> 

G  « 

•3  ft  -h  cm  co-a  ia 
H© 


120 
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Figure  15.  (Sheet  6  of  14) 
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Figure  15.  (Sheet  9  of  14) 
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Figure  15.  (Sheet  11  of  14) 
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Figure  15.  (Sheet  12  of  14) 
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corresponding  to  that  flow,  channel  geometry,  and  bed  roughness.  If  problems 
are  still  encountered  starting  the  model,  the  use  of  small  time -steps,  at 
least  initially,  has  helped.  After  a  steady- state  flow  and  water  surface 
profile  have  been  achieved,  it  is  best  to  use  these  results  to  start  sub¬ 
sequent  simulations. 

228.  Phase  errors  (see  Constant  Card,  above),  which  may  accompany 
unsteady  flow  waves,  can  result  in  negative  depths  (usually  in  or  near  shallow 
riffle  sections).  If  this  happens,  a  fatal  execution  error  occurs,  and  the 
program  is  stopped.  Several  things  can  be  done  to  eliminate  this  problem. 
First,  make  sure  that  the  cross-sectional  area  is  adequately  described,  espe¬ 
cially  at  low  stage.  Next,  check  the  value  of  THETA  (see  Constant  Card, 
above);  higher  value  (e.g.  0.75)  may  help.  If  problems  are  still  encountered, 
it  may  be  necessary  to  change  the  time -step  such  that  the  surface  wave  Courant 
number  is  closer  to  1.0.  As  values  of  this  number  decrease  below  or  increase 
above  1.0,  phase  errors  become  worse  (Lyn  and  Goodwin  1987,  Liggett  and  Cunge 
1975) .  The  surface  Courant  number  is  defined  as 


C 


N 


UsAt 

Ax 


(205) 


where 

Us  =  speed  of  the  surface  wave  «=  Tgd 
d  *=  water  depth 
At  =  time-step  size 
Ax  =  spatial  step  size 

The  same  result  can  be  achieved  by  adjustment  of  the  spatial  steps.  If  these 
measures  are  not  successful,  ramping  of  the  inflow  hydrograph  to  yield  a 
gentler,  longer  wave  will  usually  reduce  phase  errors  since  the  unsteady  flow 
waves  are  more  spread  out.  As  an  example,  hydropower  turbines  can  come  up  to 
full  power  in  about  5  min;  peaking  hydropower  releases  can  result  in  highly 
unsteady  flow  waves  in  the  receiving  stream.  It  may  be  necessary  to  spread 
out  the  generation  start-up  over  15  to  30  min.  Judicious  smoothing  of  the 
inflow  hydrograph  can  be  accomplished  without  jeopardizing  study  objectives. 
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PART  VII:  THE  WATER  QUALITY  CODE  (RIV1Q) 


229.  The  water  quality  program  contains  numerous  subroutines  in  addi¬ 
tion  to  the  main  program.  There  are  also  two  files  linked  to  the  main  program 
and  subroutines  using  INCLUDE  statements.  The  primary  INCLUDE  file  contains  a 
PARTITION  statement,  which  allows  flexible  redimensioning  of  the  model.  The 
main  program  sets  up  the  flexible  dimensioning  of  arrays,  as  is  done  in  the 
hydrodynamic  program,  and  handles  all  input  and  output  and  the  organization  of 
the  tributary  structure. 

230.  CE-QUAL-RIV1  expects  the  user  to  create  an  execution  control  file 

(RIV1Q.CTL)  prior  to  running  RIV1Q.  The  control  file  must  be  in  the  same 

directory  as  the  RIV1Q  executable  and  as  such  consist  of  standard  ASCII  text. 

This  file  follows  the  same  syntax  as  the  control  file  for  RIV1H  discussed  in 

Part  VI.  The  first  line  is  the  name  of  the  input  file,  the  second  line  is  the 

hydrodynamic  file  from  a  previous  RIV1H  simulation,  the  third  line  is  the 

lateral  flow  file,  and  the  fourth  is  the  meteorological  data  file.  The  order 

in  which  this  information  is  entered  cannot  be  changed.  A  listing  of 

RIV1Q.CTL  is  given  below. 

INPUT  FILE  SAMPLEQ . INP 

HYDRO  FILE  SAMPLEH . HYD 

LATERAL  FILE  SAMPLEH . LAC 

MET  DATA  FILE  SAMPLEQ. MET 

231.  As  noted  in  Part  IV,  RIV1Q  achieves  its  fourth-order  accuracy  by 
advecting  derivatives  as  well  as  concentrations .  Initial  concentrations  are 
given  by  the  input  data,  but  initial  derivatives  must  be  estimated  from  these 
data.  The  main  program  calls  subroutine  SPLINE  to  pass  a  cubic  spline  through 
the  data  points,  from  which  this  estimate  is  obtained.  The  algorithm  for  con¬ 
structing  a  cubic  spline  produces  a  tridiagonal  matrix,  which  is  solved  by 
subroutine  TRIDAG.  At  each  step  of  the  time  march,  the  main  program  proceeds 
through  the  tributary  network  in  a  downstream  order  (see  Tributaries, 

Part  VI),  assigning  appropriate  boundary  conditions  for  each  segment  and 
calling  subroutine  SEG  to  complete  the  solution. 

232.  The  major  loops  of  the  program  are,  in  order  of  nesting,  the  time, 
segment,  node,  and  constituent.  The  program  handles  up  to  a  maximum  of 

12  constituents:  temperature  (TEMP),  CBOD,  organic  nitrogen  (ORGAN),  ammonia 
nitrogen  (NH3-N) ,  nitrate  nitrogen  (N03-N) ,  organic  phosphate,  dissolved  phos¬ 
phate  (P04) ,  dissolved  iron,  dissolved  manganese,  dissolved  oxygen  (DO), 
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coliform  bacteria,  and  algae.  In  addition,  the  effects  of  macrophytes  are 
simulated,  although  macrophytes  is  not  a  state  variable.  Minor  loops  of  the 
program  cycle  through  segments,  nodes,  or  constituents  as  appropriate.  A 
flowchart  is  shown  in  Figure  16. 
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Figure  16.  RIV1Q  organizational  flowchart 
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Structure  of  RIV1Q 


233.  Structured  as  a  guided  tour,  this  section  is  best  read  concur¬ 
rently  with  the  listing  of  the  code  in  Appendix  B. 

The  main  program 

234.  The  main  program  opens  the  control  file  (RIV1Q.CTL)  and  determines 
the  names  of  the  various  input  files.  The  main  program  in  RIV1Q  serves  to 
apportion  storage  in  the  same  way  as  it  does  in  RIV1H.  The  major  difference 
is  that  whereas  the  grid  information  for  the  hydrodynamic  program  comes  from 
the  input  deck,  the  water  quality  model  obtains  its  grid  information  from  the 
hydrodynamic  model.  Variables  that  determine  the  total  array  storage  required 
by  the  program  are:  INDl,  the  total  number  of  computational  nodes;  IBRAN,  the 
total  number  of  branches;  IUPDATE,  the  number  of  time -varying  updates;  and 
ISYS,  the  number  of  water  quality  constituents.  These  variables  are  defined 
in  the  PARAMETER  statement  of  the  main  INCLUDE  file.  The  main  program  per¬ 
forms  the  bulk  of  the  work  for  the  rest  of  the  program. 

235.  Because  of  all  the  K-rates  used,  all  variables  whose  names  begin 
with  the  letter  "K"  are  implicitly  declared  real.  The  array  CP,  an  array  of 
flags,  indicates  whether  each  of  the  12  constituents  is  to  be  simulated  or 
held  constant  at  its  initial  value.  The  DATA  statements  assign  default  values 
to  parameters  when  reasonable,  zero  otherwise. 

236.  The  first  item  in  the  main  input  stream  is  the  title  card.  Then, 
the  program  reads  a  series  of  global  constants,  applicable  everywhere  in  the 
model  domain,  followed  by  input  which  determines  the  frequency  of  printing, 
and  then  bypass  options.  The  bypass  options,  stored  in  the  CP  array,  deter¬ 
mine  whether  a  particular  constituent  is  to  be  simulated  or  held  constant  at 
its  initial  conditions  (0  simulated,  1  not  simulated).  Then  for  each  segment, 
the  program  reads  the  segment  card,  the  constant  cards,  and  initial  Conditions 
cards.  The  computational  nodes  are  stored  in  a  1-D  array,  even  though  they 
are  handled  segment  by  segment.  The  node  number  is  initialized  at  1,  and  the 
segment  loop  is  entered.  The  segment  card  is  read,  and  then  the  constant 
card.  On  the  constant  card,  the  user  indicates  the  name  and  value  of  any 
parameter  whose  default  value  is  to  be  overridden.  Most  of  these  parameters 
can  be  stream-specific,  but  need  not  be. 

237.  Following  the  constant  card  are  the  initial  conditions  cards,  one 
for  each  node  in  the  segment.  The  initial  concentrations  are  stored  in  the 
array  INIT. 
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238.  Not  every  segment  receives  boundary  conditions  from  the  input  data 
stream;  specifically,  those  segments  below  control  structures  receive  their 
boundary  conditions  from  the  segment  immediately  above.  Those  segments  that 
will  receive  their  boundary  conditions  from  the  input  data  stream  are  indi¬ 
cated  on  the  boundary  conditions  identification  card  in  the  order  that  the 
respective  boundary  conditions  cards  will  appear.  The  filenames  containing 
the  names  of  the  files  containing  the  time -varying  boundary  condition  data  are 
then  specified  in  input.  The  program  then  opens  and  reads  these  files,  in 
subroutine  TIME_VARYING_DATA . 

239.  The  program  refers  to  segments  according  to  the  order  they  appear 
in  the  input  deck,  but  the  user  refers  to  each  segment  by  its  ID  number.  The 
logic  must  make  the  appropriate  translation  wherever  such  references  occur. 
Similarly,  it  is  convenient  for  the  user  to  give  the  ID  number  of  each  of  the 
segments  for  which  boundary  conditions  are  given;  this  information  is  stored 
in  the  array  IBC.  For  the  program,  however,  it  is  more  convenient  to  know 
where  the  boundary  conditions  for  each  segment  are  to  be  found.  This  cross- 
reference  type  of  information  is  given  in  the  array  JBC. 

240.  Distance  increments  (DX1) ,  constant  lateral  inflows  (QL) ,  and 
river  miles  (RMILE)  are  time- invariant  and  so  are  read  in  from  the  hydro¬ 
dynamic  model  outside  of  the  time-march  loop.  Flows,  time-varying  lateral 
inflows ,  areas ,  widths ,  and  water  surface  elevations  are  read  in  from  the 
hydrodynamic  linkage  file  within  the  time-march  loop. 

241.  The  starting  and  ending  dates  for  the  simulation  are  specified  in 
the  input.  The  format  for  these  dates  is  year,  month,  day,  and  hour.  These 
dates  are  converted  internally  to  Julian  dates  by  the  subroutine  JULIAN_DAY 
and  reconverted  for  output  by  the  subroutine  GREGORIAN_DAY .  A  "seed  year"  is 
also  provided  in  the  hydrodynamic  linkage  file  for  consistent  computation  of 
Julian  dates  between  the  water  quality  and  hydrodynamic  program.  The  date  of 
the  program  execution  is  called  so  that  it  can  be  printed  on  the  output. 

242.  All  time -varying  data  are  read  in  the  subroutine 
TIME_VARYING_DATA.  These  may  include  meteorological  data,  time-varying 
lateral  inflow  concentrations,  and  boundary  concentrations.  The  flows  corre¬ 
sponding  to  the  lateral  inflow  and  boundary  concentrations  are  taken  from  the 
hydrodynamic  linkage  files.  The  user  must  ensure  that  the  data  are 
consistent. 
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243.  The  running  parameters  of  photoperiod  and  elapsed  time  are 
initialized.  If  the  simulation  begins  during  daylight  hours,  the  sine  of  the 
incident  light  is  calculated  for  use  in  algal  productivity  calculations. 

244.  As  mentioned  previously,  the  fourth-order  method  requires  initial 
derivatives  as  well  as  concentrations ,  although  the  user  would  have  no  a 
priori  knowledge  about  them.  Subroutine  SPLINE  is  called  to  estimate  deriv¬ 
atives  at  each  point  based  on  a  cubic  spline  through  the  data.  The  spline  is 
constructed  one  segment  at  a  time. 

245 .  Hydrodynamic  data  for  the  initial  conditions  are  read  and  con¬ 
verted  from  customary  English  to  SI  units.  The  program  calls  subroutine  SEG 
to  set  initial  rate  constants.  Since  actual  transport  and  decay  processes  are 
not  calculated  at  this  point  (this  is  indicated  to  the  subroutine  by  setting 
DT  —  0.),  boundary  conditions  are  not  passed,  and  the  ordering  of  the  segments 
is  unimportant . 

246.  The  main  time-march  loop  begins  with  setting  MBC,  the  index  to  the 
boundary  conditions  array,  for  this  time -step.  The  program  reads  hydrodynamic 
data  and  sets  the  hydrodynamic  array  pointers.  The  solution  algorithm  in  this 
fourth-order  scheme  is  explicit,  and  so  only  one  time  level  of  information  is 
required  at  any  step. 

247.  To  ensure  proper  passing  of  boundary  conditions,  subroutine  SEG  is 
called  for  each  segment,  working  through  the  network  in  a  downstream  order. 
Boundary  conditions  are  required  for  every  segment,  either  from  the  input 
stream  (JBC  >  0)  or  passed  down  from  another  segment  (JBC  <  0) .  (JBC  *=  0  can 
happen  only  if  boundary  conditions  are  specified  incorrectly.  In  this  case, 
the  program  aborts.)  In  the  first  case,  the  program  determines  where  in  BOUND 
the  boundary  conditions  for  that  segment  are  found  and  calls  subroutine  SEG 
with  BOUND  at  that  index.  In  the  second  case,  the  appropriate  location  in  the 
tributary  information  transfer  array  T  is  given  immediately  by  -JBC(L) .  The 
entry  in  the  array  T  that  stands  for  DO,  i.e.  T(10,L2),  is  adjusted  for 
reaeration  through  control  structures  according  to  the  energy  dissipation 
model  (Wilhelms  and  Smith  1981) .  The  program  then  calls  subroutine  SEG  with 
boundary  conditions  given  in  T. 

248.  After  processing  all  of  the  segments,  the  program  prints  out  the 
data  for  all  the  segments,  one  to  a  page,  in  the  order  that  the  segments  are 
given  in  the  main  input  file. 
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Subroutine  SEG 


249.  Subroutine  SEG  performs  the  main  decay  rate  and  transport  and 
decay  calculations  for  each  segment.  In  its  argument  list  are  the  distance 
increments  (RLENGTH) ,  hydrodynamic  data  from  the  previous  time-step  (FLOWOLD, 
AREAOLD,  WIDTHOLD,  ELEVOLD) ,  hydrodynamic  data  from  the  current  time-step 
(FLOW,  AREA,  WIDTH,  ELEV) ,  constant  (QLC)  and  time-varying  (QLT)  lateral 
inflows,  constituent  concentrations  (C) ,  spatial  derivatives  of  the  concentra¬ 
tions  (DC),  decay  rates  (K) ,  source/sink  terms  (SINK),  boundary  conditions 
(BOUND),  presence/absence  flags  (CP),  constant  lateral  inflow  concentrations 
(CLC) ,  time-varying  lateral  inflow  concentrations  (CLT) ,  the  sine  of  the  inci¬ 
dent  light  (SINI),  the  number  of  nodes  (NNODE) ,  the  index  of  the  first  tribu¬ 
tary  to  that  segment  (ITO),  the  index  of  the  last  tributary  (IT1),  the  index 
where  this  segment  is  to  place  its  data  (IT2) ,  the  tributary  information 
transfer  arrays  (JT,T),  the  dipsersion  coefficient  (DISP) ,  dispersion  correc¬ 
tion  term  (F) ,  number  of  segments  (NS),  and  flag  for  wind-driven  reaeration 
(QWIND  or  QDUM  depending  on  location) . 

250.  First,  a  derivative  at  the  first  node  is  estimated  with  a  cubic 
interpolation  based  on  the  concentration  at  the  boundary  at  the  new  time -step 
and  at  the  first  and  second  nodes  at  the  old  time-step,  and  the  derivative  at 
the  second  node.  Markers  to  define  the  downstream  extent  of  algal  nutrient 
depletion  are  initialized. 

251.  In  this  explicit  method,  only  two  nodes  from  the  old  time -step  are 

required  in  the  solution  of  any  node  at  the  current  time-step  (Figure  17); 
that  is,  <*i+1  is  calculated  from  cr?  and  .  If  calculation  were  to 

proceed  in  a  downstream  fashion,  a^_x  would  have  to  be  saved  so  it  would  not 
be  overwritten  in  the  calculation  of  crjtj  .  Proceeding  upstream,  however, 
removes  this  difficulty.  Entries  at  i-1  are  old  information  by  default,  and 
cr?+1  simply  replaces  a{  as  it  is  calculated.  For  this  reason,  the  node  loop 
marches  backwards  through  the  indices. 

252.  Once  inside  the  node  march  loop,  velocities  and  the  rate  constant 
adjustments  for  flow,  QX,  are  calculated.  The  succeeding  hydrodynamic  manip¬ 
ulations  are  useful  only  in  the  transport  calculations  and  so  are  bypassed  for 
initial  and  boundary  conditions.  For  interior  grid  points,  these  statements 
prepare  the  groundwork  for  the  solution  of  the  final  transport  Equations  92, 

95,  and  98.  The  distance  increment  DX  is  assigned  to  Xi+1  -  (the  node  to 
be  calculated  is  termed  node  I  in  the  program,  as  opposed  to  node  i+1  in 
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Figure  17.  Compact  fourth-order  numerical  gridwork 

Part  IV) .  For  any  parameter  a  ,  da/dx  is  calculated  as  (a|+1  -  a^)/(Xi+1 
X*)  ,  da/dt  is  calculated  as  (a^+1  -  a {)/r,  and  the  estimated  average  as 


*  +  *i-i(i  -  ?) 


(206) 


The  exception  to  this  rule  is  u*,  whose  calculation  must  precede  that  of  £ 
and  is  given  by  Equation  92.  The  variable  £  is  calculated  by 


xi.i  - 


(207) 
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Its  complement  (1  -  5)  is  also  assigned  a  variable.  In  the  calculation  of 
Equation  98,  the  following  is  the  same  for  all  constituents  and  so  is  assigned 
to  the  variable  GO  : 


1  _  r(ui*i  ~  ui)  (208) 

Xi.i  “  Xi 


The  coefficients  Ax  through  Aa  and  b1  through  b4  are  calculated  accord¬ 
ing  to  Equations  81  through  84  and  86  through  89,  respectively,  based  on  the 
estimated  value  of  £  and  its  complement. 

253.  With  all  the  background  to  the  transport  equations  prepared, 
attention  shifts  to  the  decay  rates  and  source/sink  terms.  Decay  rates, 
source/sink  terms,  and  final  concentrations  and  derivatives  are  calculated 
within  a  loop  that  cycles  through  each  of  the  12  modeled  constituents.  Decay 
rates  and  source/sink  terms  are  particular  to  each  constituent,  and  so  each  is 
calculated  in  a  separate  block.  Once  decay  rates  and  source/sink  terms  for  a 
particular  constituent  are  calculated,  the  final  averaging,  concentration,  and 
derivative  equations  can  be  solved  in  a  stereotyped  way,  and  so  the  loop 
reassembles.  (The  reason  that  decay  rates  and  source/sink  terms  are  within 
the  loop  at  all  is  the  interdependence  of  constituents;  for  instance,  the  sink 
term  for  DO  contains  the  final  concentration  of  CBOD.  If  all  decay  rates  and 
source/sink  terms  were  calculated  outside  the  loop,  this  information  would  not 
be  available.)  Finally  the  effect  of  diffusion  is  calculated  implicitly  and 
added  to  the  constituent  concentration. 

254.  The  equations  that  appear  in  the  listing  are  equivalent  to  those 
given  in  Parts  IV  and  V  with  some  minor  modifications.  In  one  instance, 
numerical  problems  presented  by  the  expression 


2 . /KEXT * ( 1 -EXP ( -KEXT *H ) ) +B  *  EXP ( -KEXT  *H )  (  2 0  9  ) 


used  in  determining  available  photosynthetic  energy  (Equations  146  and  147) 
must  be  handled.  First,  the  number  of  calls  to  the  external  function  EXP 
(exponentiation)  can  be  cut  in  half  by  rewriting  the  above  expression  as  the 
algebraically  equivalent 
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2. /KEXT  +  (B-2 . /KEXT) *EXP( -KEXT*H) 


(210) 


The  above  expression,  however,  becomes  numerically  unstable  as  KEXT  approaches 
zero,  although  mathematically  it  approaches  the  value 


2 .  *H  +  B 


(211) 


This  problem  is  handled  by  taking  a  Taylor's  series  expansion  of  EXP(-KEXT*H) 
in  the  expression  2 . /KEXT*(1 . -EXP( -KEXT*H) )  about  KEXT  -  0  carried  to 
three  terms , 


2  .  /KEXT  *  ( 1 .  -  (1.  -  KEXT*H  +  (  (KEXT*H)  **2)/2  + - )) 


This  simplifies  to 


H*  (2  .  -  KEXT *H ) 


(212) 


The  entire  expression  is  then 


H*  (2 .  -  KEXT*H)  +  B*EXP(-KEXT*H)  (213) 


for  KEXT  less  than  0.01. 

255.  After  calculating  decay  rates  and  source/sink  terms,  the  loop 
reassembles  to  calculate  averages  and  spatial  derivatives  of  these  quantities. 
Finally,  the  concentrations  and  their  spatial  derivatives  are  calculated. 

256.  Lateral  inflow  is  modeled  by  simple  mass  balance.  Subtracting  the 
continuity  equation  (Equation  34)  times  the  concentration,  a  ,  from  the  pol¬ 
lutant  transport  equation  (Equation  36),  yields  (neglecting  off-channel  stor¬ 
age,  diffusion,  decay,  and  source/sink  terms) 
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(214) 


da 

5T 


+  u 


-  a) 


where  q  is  the  lateral  inflow  (both  constant  and  time -varying,  I^T'1)  and  y 
is  the  concentration  in  the  lateral  inflow.  The  quantity  q/A  is  denoted  as 
QLC  or  QLT  and  y  -  a  is  replaced  by  CLC  or  CLT.  The  right-hand  side  of  the 
transport  equation  is  therefore  augmented  by  the  term 


(CLT+QLT  +CLC*QLC) 


(215) 


The  derivative  transport  equation  receives  this  term  after  product  rule  dif¬ 
ferentiation 


(-DOQLC  +  CLC+DQLC) 


(216) 


for  constant,  or  simularly  time-varing,  lateral  inflows,  where  DC  and  DQLC 
are,  respectively,  ax  and  d(q/A)/dx  . 

257.  Once  the  calculations  for  all  the  constituents  are  complete,  the 
frame  of  interest  shifts  by  one  node ,  and  iteration  continues . 

258.  At  the  completion  of  the  node  march,  the  boundary  conditions  are 
assigned  to  the  first  node,  and  the  segment  loads  its  own  information  into  T. 
Subroutine  SPLINE 

259.  As  stated  earlier,  this  solution  scheme  requires  spatial  deriva¬ 

tives  for  the  concentrations  of  all  modeled  constituents  at  initial  and  bound¬ 
ary  conditions .  Because  the  user  would  have  no  a  priori  information  as  to  the 
values  of  the  derivatives ,  the  program  estimates  them  based  on  a  polynomial 
interpolation  of  the  initial  and  boundary  data  themselves.  The  scheme's  being 
fourth  order  suggests  that  interpolation  should  likewise  be  fourth  order,  that 
is,  a  cubic  spline.  Such  a  spline  is  completely  defined  by  the  following 
considerations:  the  curve  should  pass  through  every  data  point;  it  should  be 

fourth  order;  although  the  equation  may  vary  from  one  interval  to  the  next, 
the  curve  and  its  first  and  second  derivatives  should  be  continuous  at  every 
point;  and  the  second  derivative  at  the  two  boundaries  should  be  zero  (that 
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is,  there  should  be  no  bending  of  the  curve  at  the  end  points,  commonly  known 
as  a  "relaxed"  or  "natural"  condition) . 

260.  A  complete  development  of  the  equations  is  given  by  Rogers  and 
Adams  (1976).  Briefly,  the  cubic  equation  for  each  interval  is  defined  by  the 
values  and  derivatives  at  each  end  of  the  interval,  just  as  is  done  in  the 
development  of  the  fourth-order  scheme  in  Part  IV.  Requiring  that  the  second 
derivative  be  continuous  at  every  point  implies  that  the  cubic  equations  for 
any  two  adjacent  intervals  yield  equal  second  derivatives  at  their  point  of 
juncture.  This  leads  to  a  system  of  n  -  2  linear  equations,  where  n  is 
the  number  of  nodes ,  that  is ,  one  equation  for  each  interior  node .  The  system 
is  completed  by  the  equation  that  sets  the  second  derivative  to  zero  at  the 
first  node  and  the  one  that  does  the  same  for  the  last  node.  This  produces  a 
system  of  n  linear  equations  in  n  unknowns,  where  the  coefficient  matrix 
is  of  tridiagonal  form  filled  with  nonzero  members  along  the  main  diagonal, 
one  row  above  the  main  diagonal  and  one  below.  Tridiagonal  matrices  are 
amenable  to  much  faster  solution  than  general  square  matrices- -the  solution 
scheme  employed  here  is  subroutine  TRIDAG,  taken  with  slight  modification, 
from  Carnahan,  Luther,  and  Wilkes  (1969). 

261.  The  mathematical  formalism  proceeds  as  follows.  Recall  Equa¬ 
tion  80  in  expanded  form: 


Y(5)  =  £2(3  -  21)0.  +  [l  -  S2(3  -  25)K*i 
+  52(1  -  0(xi+1  -  xj  °*i  -  5(1  -  5)2(xi+1  -  xjaxi+1 


(217) 


The  expression  for  the  second  derivative  is  then 


Y(5)  =  (6  -  125)0!  +  (-6  +  125)0!.! 

+  (2  -  65)(xiU  -  xjaxi  +  (4  -  60  (xi+1  -  xjax^ 


(218) 


Approaching  node  i+1  from  the  left,  5  -  0  ,  and  approaching  it  from  the 
right  ^  -  1  The  requirement  that  the  second  derivative  be  continuous 
translates  mathematically  to 
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(219) 


d2y 

d72 


£7 

dx2 


Now 


dx2 


xi.i 


=  Y(5) 


1 

(xi  -  xi+i)2 


(220) 


and 


*xi+i 


+ 


=  Y  (5) 


5=1 


1 

(xi-i  -  xi.Z)2 


(221) 


Equating  the  two 


k  -  xi*i)2 


Y(0 


5=0  (xi-i"xi  .a)' 


Y(5) 


5=1 


(222) 


which  can  also  be  written 


Xi+2  ~  Xi.l  « 


Xi*l  -  Xi 


Y<5) 


xi*l  -  xi 


5-0  ^i*2  ~  Xi+1 


Y(5) 


5=1 


(223) 


In  expanded  form 
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(224) 


X— — —  6ax  -  6ai+1  +  2(xi+1  -  xl)axi  +  4(xi+1  -  xA)axi+1 

V  —  V 


xi*i  '  xi 


Xi+2  "  Xi 


— — — —  ^ai*l  +  ^ai*Z  “  ^(Xi *2  ~  Xi+l)aXi+l  “  2(Xi+2  “  Xi+l)aXi*2 


Rearranging  so  that  all  the  derivatives  are  on  the  left-hand  side  and  every¬ 
thing  else  on  the  right-hand  side  and  dividing  by  two  yields 


(Xi+2  -  Xi.l)“Xi  +  2  [(Xi*2  -  Xi-l)  +  (Xi.l  "  Xi)j  “i.l  +  (Xi-1  -  Xi)“X 


(225) 


xi-l  -  xi 


Xi»2  “  Xi*l 


The  second  derivative  being  zero  at  the  first  node  requires  (setting  C  -  1) 


-6ax  +  6a2  -  4(x2  -  x1)ax1  -  2(x2  -  xjaxj  =  0 


(226) 


1  3  1/  \ 

axl  +  »  ax2  =  T  7 - 7  (a2  "  «l) 

2  MX2  "  Xi 


(227) 


Similarly  for  the  last  node 


(228) 


262.  The  entire  system  can  be  written  in  matrix  form  and  given  to  sub¬ 
routine  TRIDAG  to  solve. 
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1 


1 

2 


(Xi-2  '  Xi*l>  2[(Xi.2  ~  Xi*l>  +  <Xi-l 


xi)](xi+1 

1 

2 


- 

ax. 

xi> 

• 

axi-i 

1 

,QXn 

!  rh  K  -  -  J 

^  (X2  -  Xl) 


Xi+2  “  Xi+1  /  ^  \  .  Ai+1  Ai  /  ^  \ 

-  (°i*l  -  “i  +  -  (ai*2  ~  Qi^l 

—  V  '  '  V  —  V  '  ' 


Xai1  -  X, 


xi.l  -  xi 


Xi+2  -  Xi.l 


*  K '  “-1' 


(229) 


Tributaries 

263.  Tributaries  in  the  constituent  transport  equations  are  considered 
to  be  point  additions  of  materials.  The  concentration  at  the  junction  point 
is  a  function  of  the  concentration  and  flow  of  the  tributary  and  the  receiving 
stream  just  upstream  of  the  junction.  For  a  junction  at  node  i  : 


(230) 


where 

a  *=  concentration 

0  -=  receiving  stream  just  upstream  of  the  junction 
Q  *  flow 
T  »  tributaries 

RIV1Q  requires  two  reaches  to  achieve  full  dilution  of  the  tributary  flow; 
therefore  Qi+1  replaces  the  sum  of  Q0  and  QT  in  Equation  230, 
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(231) 


The  quantity  QT/Qi+i  can  be  represented  by  the  dilution  ratio  D  : 


ax  =  ae>i  (l  -  D)  +  aT  D 


(232) 


264.  To  preserve  fourth-order  correctness  through  a  junction,  deriva¬ 
tives  must  be  advected  as  well.  The  derivatives  are  diluted  in  the  same  way 
as  concentrations,  with  the  addition  that  spatial  derivatives  on  the  tributary 
must  be  adjusted  for  the  difference  between  the  velocity  on  the  tributary  and 
on  the  receiving  stream: 


where  DD  represents  the  quantity  D  •  uT/ui  . 

265.  Tributary  influx  is  modeled  here  as  a  discontinuity,  and  so  the 
values  immediately  upstream  of  the  junction  point  must  be  stored.  The  first 
20  members  of  the  T-array  contain  concentrations  and  their  derivatives  at  the 
mouth.  Location  21  contains  tributary  flow,  and  location  22  contains  tribu¬ 
tary  velocity.  Locations  23  through  32  contain  concentrations  on  the  main 
stem  just  upstream  of  the  junction  point,  and  locations  33  through  42  contain 
the  derivatives  there.  In  the  solution  procedure  for  the  .receiving  stream, 
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each  node  is  checked  to  see  if  it  is  a  junction  point.  If  it  is  not,  the 
solution  proceeds  normally.  If  it  is,  the  array  pointers  shift  to  the  appro¬ 
priate  positions  in  the  T-array  and  a 0  and  axo  are  used  in  place  of 
and  axj  in  performing  advection  and  first-order  decay.  The  calculated 
values  become  ae  and  axo  for  the  new  time -step.  Finally,  ai  and  aXi 
are  calculated  according  to  Equations  232  and  233. 

Input  and  Output  Formats 

266.  The  input  to  the  water  quality  model  is  provided  in  up  to  four 
files,  depending  upon  the  options  selected,  in  addition  to  the  hydrodynamic 
linkage  file.  The  main  input  file  contains  information  on  the  model  configu¬ 
ration,  such  as  specification  of  constants,  initial  conditions,  and  boundary 
specifications.  Time-varying  boundary  conditions,  meteorological  conditions, 
and  lateral  inflows  are  specified  in  separate  files.  The  structure  of  these 
files  are  described  in  the  following  sections.  DOS  extensions  to  the  file¬ 
names  are  enforced.  The  main  input  file  should  have  the  extension  *.INP,  the 
time -varying  lateral  inflow  file  the  extension  *.LAC,  the  boundary  condition 
file  *- BCF ,  and  the  meteorological  file  the  extension  * . MET .  The  hydrodynamic 
linkage  file  must  have  the  extension  *.HYD.  Similarly,  output  files  will  have 
the  same  name  of  the  input  file,  but  with  the  extension  *.OUT  for  the  main 
output  file,  *.HYD  for  the  interface  file  for  the  water  quality  model,  *.ERR 
for  the  error  file,  or  *.EDF  for  the  dump  file  containing  data  for  graphical 
post -processing. 

Main  input 

267.  The  main  input  deck  for  RIV1Q  consists  of  card  (or  card- image) 
input  from  the  user.  Card  input  is  composed  of  nine  types  of  cards:  title, 
global  constants,  print  updates,  bypass  options,  segment,  constant,  initial 
conditions,  boundary  conditions  identification,  and  boundary  file  specifica¬ 
tion.  The  title  card  supplies  the  title  with  which  the  output  of  each  run  is 
labeled.  The  global  constant  cards  assign  constants  that  do  not  vary 
spatially,  the  print  update  cards  specify  print  frequencies,  while  the  bypass 
card  specifies  whether  a  particular  constituent  is  to  be  simulated  or  held 
constant.  The  segment  card  gives  data  pertinent  to  each  segment,  such  as  name 
and  identification  number.  On  the  constant  card,  rate  coefficients  and  the 
other  parameters  are  given  values  by  name.  The  initial  conditions  cards 
assign  concentrations  to  each  of  the  modeled  constituents  at  every  node  for 
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the  first  time -step.  The  segments  for  which  boundary  conditions  are  given  are 
listed  on  the  boundary  conditions  identification  card.  If  the  user  does  not 
want  to  simulate  a  particular  constituent  (such  as  reduced  iron) ,  then  the 
bypass  option  for  that  constituent  should  be  set  to  1.  This  will  cause  the 
concentration  for  that  constituent  to  remain  constant  at  its  initial  value. 
However,  if  that  initial  concentration  is  nonzero  and  decay  rates  are  speci- 
fied,  then  the  impact  of  that  decay  rate  on  other  constituents  may  still  be 
realized.  For  example,  if  BOD  is  bypassed,  its  initial  condition  is  nonzero, 
and  a  decay  rate  is  specified,  it  will  remove  DO  at  a  constant  rate  (KC) . 

268.  The  organization  of  the  main  input  file  is  shown  in  Figure  18. 

The  title  card  comes  first,  followed  by  global  constant  cards,  print  interval 
cards,  a  bypass  card,  a  segment  card,  constant  cards,  and  initial  conditions 
cards  for  each  segment.  Boundary  conditions  are  introduced  by  a  boundary  con¬ 
ditions  identification  card  and  followed  by  the  name  of  the  files  containing 
the  time-varying  data.  This  is  the  complete  file  for  making  a  single  run. 
Depending  on  the  options  selected  for  lateral  inflows  and  temperature  Simula 
tion,  other  input  files  may  be  necessary.  These  files  are  discussed  later. 

269.  Title  card.  The  user  has  the  full  80  columns  of  the  title  card  to 
write  any  title  of  his  choosing.  It  will  be  printed,  verbatim  near  the  top  of 
every  page  of  the  output  file. 

270.  Global  constant  card.  These  cards  specify  values  of  model  con¬ 
stants  which  do  not  vary  spatially.  The  constants  are  identified  in  Table  2. 
The  order  in  which  they  must  appear  on  the  global  constant  card  is  shown  in 
the  example  input  file  (Figure  18).  The  format  for  these  cards  is  5(8X,F8.0), 
or  5(8X,I8).  Space  for  identifying  names  is  provided  in  input.  However,  the 
names  are  only  for  convenience  and  are  not  used  by  the  model.  Rather,  the 
specific  constants  are  identified  by  their  location  in  input. 

271.  Print  update  card.  The  print  update  card  identifies  the  number  of 
print  interval  updates  that  will  be  read  from  the  following  card(s) .  The 
format  of  the  card  is  8X,I8. 

272.  Print  interval  card(s).  The  print  interval  cards  control  the 
times  at  which  model  results  are  printed  to  the  output  file.  On  this  card, 
the  user  provides  a  print  interval  (hours)  and  time  (Julian  day) ,  up  to  which 
that  print  interval  applies.  The  print  interval  will  be  constant  between  the 
times  specified.  The  format  for  this  card  is  4(8X,F8.0),  so  that  two  pairs  of 
data  can  be  input  per  line. 
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SAMPLE  RIV1Q  DATA  SET  -  USER’S  MANUAL 


START 

TBIOS 

APCONT 

18.  END 

1.047  TAMMON 

0.01  ANCONT  0 

20.0 

1 . 1  TPHYI 
.075 

1.024 

ONEQUI  0 . 35  ONITRI 

DAWN  6.5  SUNSET 

LATOPT  1 

NOPRINT  2 

INTERVAL  12.0  TIME 

NOPLOT  2 

INTERVAL  1 . 0  TIME 

0  0  0  0  0 

1  MAIN  STEM  ABOVE  REREG  DAM 

4.56  OPDECY 
20.5 

0 . 0INTERVAL 

0 . 0 INTERVAL 

0  0  0 

1.59 

12.0 

1.0 

0 

2 

OFEDEC 

TIME 

TIME 

0  0 
0.045 

0.14 

1000. 

1000. 

0 

OMNDEC 

0. 

1 

ADN 

0.1  AG  12.81  AKN 

0.3 

AKNX 

0.0 

AK1 

0. 

2 

ATB 

El 

KNCBDN 

KON 

0.0  ATS 

0.5  E2 

0.1  KOALDK 

0.5  TEMP 

0.0  AP04 

1.5  KALGDK 

0 . 5  KOCBDN 
23.0  TSINK 

0.0 

0.1 

0.5 

10.0 

BK 

KALGRO 

KOCB1 

-0.49 

.02 

0.5 

CSINK 

0 

TSIV 

0.0  KCOLIDK 

1.4  KMNDK 

0.5 

KFEDK 

0.5 

OXIDAT 

1 

HNEFSW 

0.0  KNPOOL 

0.1  KP04X 

0.1 

KDN02 

0.0 

ACK 

0 

LAMBDAO 

1.0  LAMBDA 1 

0.0  LAMBDA 2 

0.0 

ALPHA0 

0.0 

XONS 

0 

ABSR 

0 . 0  CBODSR 

0.0  FCBOD 

0.0 

KPDK 

0.0 

KPSET 

0 

BENP04 

ELITE 

QWINDO 

0.0  SOD 

21.0  ITEM 

.FALSE. 

0 . 0  MACROB 

0 

0.0 

MACGRO 

0.0 

MACDKY 

0 

23.4 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.50 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

22.8 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0,00 

8.60 

0.00 

0.00 

0,0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

22.8 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.70 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

24.3 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.20 

0.00 

0.00 

0.0 

250. 

24.4 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.20 

0.00 

0.00 

0.0 

250. 

24.5 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.30 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

24.7 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.30 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

25.1 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.30 
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0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 
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0.0 

0.0 

0.0 

0.0 

0.0 

250. 

25.4 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.30 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 
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0.0 

0.0 

0.0 

250. 

25.7 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 
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8.20 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

25.9 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.20 

0.00 

0.00 

0.0 

250. 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

26.0 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.20 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

26.0 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.20 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

25.9 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.20 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

25.7 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.30 

0.00 

0.00 

0.0 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

250. 

25.3 

0.01  0.01  0.10 

0.01  0.00 

0.02 

0.00 

0.00 

8.40 

0.00 

0.00 

0.0 

250. 

0.0  0.0  0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

« 

Figure  18.  Sample  RIV1Q  *.INP  input  data  file  (Sheet  1  of  3) 
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2  MAIN  STEM  BELOW  REREG 
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0.0  FCBOD 

BENP04 
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0.0 
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0.0 

0.0 
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3  MAIN  STEM  TRIBUTARY  ABOVE  REREG  DAM 
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273.  Plot  update  card.  The  plot  interval  card  identifies  the  number  of 
plot  interval  updates  that  will  be  read  from  the  following  card(s).  The 
format  of  the  card  is  8X,I8. 

274.  Plot  interval  card(s).  The  plot  interval  cards  control  the  times 
at  which  model  results  are  printed  to  files  for  graphic  post-processing.  On 
this  card,  the  user  provides  a  plot  interval  (hours)  and  time  (Julian  day),  up 
to  which  that  plot  interval  applies.  The  plot  interval  will  be  constant 
between  the  times  specified.  The  format  for  this  card  is  4(8X,F8.0),  so  that 
two  pairs  of  data  can  be  input  per  line. 

275.  System  bypass  card.  This  card  contains  the  bypass  options  for 
each  of  the  12  water  quality  constituents.  The  values  of  the  option  may 
either  be  0,  indicating  simulated,  or  1,  indicating  that  the  constituent 
should  be  bypassed.  If  a  constituent  is  bypassed,  its  concentrations  remain 
constant  over  the  period  of  simulation  and  equal  to  the  values  specified  in 
the  initial  conditions.  The  format  of  this  card  is  1215. 
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Table  2 

Parameters  That  Can  Appear  in  the  Global  Constants  Cards 


Name 

Unit 

Explanation* 

START 

Day 

Start  time  for  simulation,  input  for  convenience  but 
overriden  by  hydrodynamic  file  start  time  (R) 

END 

Day 

End  time  for  simulation,  input  for  convenience  but 
overridden  by  hydrodynamic  file  end  time  (R) 

TBIOS 

None 

Temperature  coefficient  for  biological  processes  (R; 
default  value  =  1.047) 

TAMMON 

None 

Temperature  coefficeint  for  nitrification  (R;  default 
value  =  1.1) 

TPHYI 

None 

Temperature  coefficient  for  physical  processes  (R; 
default  value  =  1.024) 

APCONT 

None 

Phosphorus- to-biomass  ratio  in  algae  and  macrophytes 
(R;  default  value  =  0.01) 

ANCONT 

None 

Nitrogen- to-biomass  ratio  in  algae  and  macrophytes 
(R;  default  value  -  0.075) 

ONEQUI 

None 

Incremental  increase  in  oxygen- to -algal  biomass  ratio 
for  oxygen  production  by  algae  and  macrophytes  when 
nitrate  is  used  as  a  nitrogen  source  (R;  default 
value  =  0.35) 

ONITRI 

None 

Oxygen- to -nitrogen  ratio  for  ammonia  oxidation  (R; 
default=  4.56) 

OPDECY 

None 

Oxygen- to-biomass  ratio  for  oxygen  production  by 
algae  and  macrophytes  when  ammonia  is  the  nitrogen 
source  (R;  default  value  *  1.59) 

OFEDEC 

None 

Oxygen- to -iron  ratio  for  iron  oxidation  (R;  default 
value  *  0.14) 

OMNDEC 

None 

Oxygen- to -manganese  ratio  for  oxidation  (R;  default 
value  «=  0.15) 

DAWN 

Hours 

Time  of  sunrise  (R) 

SUNSET 

Hours 

Time  of  sunset  (R) 

LATOPT 

None 

Time-varying  lateral  flow  option.  If  LAT0PT>1 ,  then 
the  name  of  the  lateral  inflow  file  is  given  in  the 
third  record  of  the  RIV1Q  control  file  (RIV1Q.CTL) 

(I) 

R  -  real  variable;  I  -  integer. 


276.  Segment  card.  The  format  of  the  segment  card  is  12 , 10A4 , 12 , F10 . 0 . 
The  items  specified  are  ID,  the  identification  number  for  this  segment,  SNAME, 
its  name,  IDAM,  and  DAMK.  The  two  latter  variables  concern  reaeration  that 
occurs  through  the  control  structure,  if  any,  at  the  bottom  of  this  segment. 

If  this  segment  does  not  end  with  a  control  structure  or  if  reaeration  is  not 
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modeled,  these  two  fields  are  left  blank.  If  IDAM  is  0  or  blank,  structural 
reaeration  is  not  modeled.  If  IDAM  is  given  a  value  of  one  or  greater,  struc¬ 
tural  reaeration  is  modeled  with  the  energy  dissipation  model  (Wilhelms  and 
Smith  1981) , 


-CtAH 
r  =  e  T 


(234) 


where 

r  =  deficit  ratio  (final  DO  deficit/initial  DO  deficit) 

CT  =  escape  coefficient 

AH  difference  in  water  surface  elevation  across  the  control 
structure 

The  value  for  the  escape  coefficient  at  20  °C  is  input  by  DAMK  with  units  of 
ft"1;  the  program  corrects  for  temperature  by 

CT  =  DAMK*1 . 022 (TEMP~20)  (235) 


A  value  of  0.045  ft"1  for  DAMK  was  recommended  (Wilhelms  and  Smith  1981)  for 
gated- conduit  outlet  works  and  low  head  weirs  and  gated  spillways  (H  <  25  ft) 
with  free  hydraulic  jumps.  The  value  for  this  coefficient  may  be 
significantly  different  for  other  types  of  outlet  structures  or  for  conditions 
not  conducive  to  reaeration,  such  as  submerged  hydraulic  jumps  that  can  be 
experienced  with  many  low-sill  gated  structures.  The  program  is  not  set  up  to 
allow  structural  reaeration  at  headwater  nodes. 

277.  Segment  specific  constant  cards.  On  these  cards,  the  user  speci¬ 
fies  values  by  name  for  parameters  and  coefficients  used  in  the  model.  Con¬ 
stant  cards  must  be  given  for  each  segment,  even  if  the  constants  are  the  same 
for  every  segment.  Their  names  and  uses  are  given  in  Table  3. 

278.  The  segment  specific  constants  must  appear  in  the  order  specified 
on  the  lines  illustrated  in  the  example  input  data  set  (Figure  18) .  The  for¬ 
mat  for  these  cards  is  5(8X,F8.0),  or  5(8X,I8).  Space  for  identifying  names 
is  provided  in  input .  However ,  the  names  are  only  for  convenience  and  are  not 
used  by  the  model.  Rather,  the  specific  constants  are  identified  by  their 
location  in  input. 
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Table  3 

Parameters  That  Can  Appear  on  the  Constant _ Card 


Name 


Units _  Default 


Explanation 


ABSR 

g  nf2 

Benthal  source  rate  for 
ammonia 

ACK 

day'1 

Decay  rate  for  organic 
nitrogen 

ADN 

day'1 

0.1 

Rate  coefficient  for 
denitrification 

AG 

day’1fps’E1/f  t‘E2 

12.81 

Rate  coefficient  for 
stream 

reaeration  rate  in 
the  form 

Ko  -  AG  UE1 

Hez 

AKN 

day"1 

0.3 

Rate  coefficient  for 
nitrification 

AKNX 

day'1 

0.0 

Rate  coefficient 

for  ammonia  adsorption 

AK1 

day*1 

0.15 

Rate  coefficient  for 
CBOD  decay  and  organic 
nitrogen  decay 

ALPHAO 

Conversion  factor  from 
algae  to  chlorophyll 

AP04 

day'1 

0.0 

Rate  coefficient  for 
phosphate  adsorption 

ATB 

day"1 

0.0 

Rate  coefficient  for 
bottom  heat  exchange 

(Sheet  1  of  5) 
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Table  3  (Continued) 


Name 

ATS 

BENP04 

CBODSR 

El 


E2 


FCBOD 


*  1  W 
m2  °C 


_ Units _  Default 

W  0.0 

m2  °C 

g  m  2 

m  day"1 

Unitless  0.50 


Unitless 


1.50 


Unitless 


0  to  1 


_ Explanation _ 

Rate  coefficient  for 
surface  heat  exchange 
in  constant  equilibrium 
temperature  method* 

Benthic  source  term 
for  dissolved 
phosphorus 

Settling  rate  for  CBOD 

Exponent  of  velocity  in 
stream  reaeration  rate 
formulation  in  the  form 

K,  -  AG  UE1 
HE2 

Default  value  is  for 
the  O'Connor,  Dobbins 
(1958)  formulation . 

Exponent  of  depth  in 
stream  reaeration  rate 
formulation  in  the  form 

K,  -  AG  UE1 
HE2 

Default  value  is  for 
the  O'Connor,  Dobbins 
(1958)  formulation. 

Fraction  of  algal  and 
macrophyte  decay  which 
goes  to  CBOD 


(Sheet  2  of  5) 
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Table  3  (Continued) 


Name 

HNEFSW 


Units 


Default 

0.0 


_ Explanation _ 

Surface  light  intensity 
at  local  noon.  A  value 
is  required  if  modeling 
photosynthesis  but  not 
using  direct  energy 
budget  that  computes 
HNEFSW. 


ITEM 


To  designate  type  of 
heat  exchange  solution. 
For  ITEM-1,  the 
constant  equilibrium 
temperature  solution  is 
used  (should  also 
specify  ATS  and  TEMP). 
For  ITEM-0,  the  direct 
energy  balance  is  used 
for  temperature 
solution,  and  meteo¬ 
rological  data  must  be 
furnished.  For  any 
other  value  of  ITEM 
other  than  0  or  1,  heat 
exchange  is  not 
modeled. 


KALGDK 

day’1 

0.0 

Algal  decay  rate 

KALGRO 

m2Watts“1day’1 

0.0 

Algal  growth  rate 

KCOLIDK 

day'1 

0.0 

Rate  coefficient  for 
coliform  bacteria 
mortality 

KDSED 

day’1 

Sediment  denitrifica 
tion  rate 

KFEDK 

day’1 

0.0 

Rate  coefficient  for 
iron  oxidation 

KLITE 

Light  intensity  at 
which  photosynthesis 
rate  reduced  by  1/2 

KMNDK 

day’1 

0.5 

Rate  coefficient  for 

manganese  oxidation 


(Sheet  3  of  5) 
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Table  3  (Continued) 


Name 

Units 

Default 

Explanation 

KNCBDN 

mg/l 

0.1 

Nitrate  half-saturation 
constant  for 
denitrification 

KNPOOL 

mg/1 

Total  nitrogen 
concentration  at  which 
algal  growth  rate  is 
reduced  by  1/2 

KNSET 

m  day"1 

Settling  rate  for 
organic  nitrogen 

KOALDK 

mg/l 

0.5 

DO  half -saturation  con¬ 
stant  for  algal  decay 

KOCBDN 

mg/l 

0.5 

DO  half -saturation  for 
denitrification 

K0CB1 

mg/l 

0.5 

DO  half -saturation  con¬ 
stant  for  CBOD  decay 
(Hoover  and  Porges 

1952) 

KON 

mg/l 

0.5 

DO  half -saturation  for 
nitrification 

KPDK 

day"1 

Decay  rate  of  organic 
phosphorus 

KP04X 

mg/l 

Phosphorus  concentra¬ 
tion  at  which  algal 
growth  rate  is  reduced 
by  1/2 

KPSET 

Settling  rate  coeffi¬ 
cient  for  organic 
phosphorus 

LAMBDAO 

Nonalgal  portion  of 
light  extinction 
coefficient 

LAMBDAl 

1/m 

ug  biomass/1 

Linear  algal  self¬ 
shading  coefficient 

LAMBDA2 

1/m 

(ug  biomass/l)2/3 

Nonlinear  algal  self¬ 
shading  coefficient 

MACDKY 

day*1 

Specific  macrophyte 
decay  rate 

(Sheet  4  of  5) 
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Table  3  (Concluded) 


Name 

Units 

Default 

Explanation 

MACROB 

g  m'2 

Macrophyte  density  on 
channel  surfaces 

MACGRO 

day'1 

Macrophyte  growth  rate 

QWINDO 

FALSE 

A  logical  variable  to 
invoke  wind -driven 
reaeration.  To  turn  on 
wind  reaeration  for  a 
segment,  set  QWINDO  - 
TRUE. 

SOD 

g  m"2 

Sediment  oxygen  demand 

TEMP 

°C 

23.0 

If  temperature  is 
modeled  with  the 
constant  equilibrium 
temperature  approach, 
then  TEMP  is  used  to 
input  the  equilibrium 
temperature  for  each 
stream  segment. 

TSINK 

°C 

10.0 

Source/sink  term  for 
bottom  heat  exchange 

TSIV 

ft'1 

0.0 

Coefficient  in  the 
Tsivoglou- Wallace 
(1972)  reaeration 
formula  (a  value  of 
zero  serves  to  indicate 
that  the  equation 

K,  «  AG  UE1 
HE2 


will  be  used  rather 
than  this).  If  the 
Tsivoglou- Wallace 
(1972)  formula  is  used, 
a  value  of  0.054  is 
suggested  for  TSIV. 
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279.  Initial  conditions  cards.  As  stated  in  Part  IV,  necessary  and 
sufficient  initial  conditions  are  the  concentrations  of  all  the  parameters  to 
be  modeled.  Accordingly,  each  initial  conditions  card  is  divided  into 

12  areas,  each  eight  columns  wide,  which  contain  the  values  of  temperature, 
CBOD,  organic  nitrogen,  ammonia  nitrogen,  nitrate  plus  nitrate  nitrogen, 
organic  phosphate,  dissolved  phosphate,  reduced  manganese,  reduced  iron,  dis¬ 
solved  oxygen,  coliform  bacteria,  and  algae,  respectively.  Columns  corre¬ 
sponding  to  constituents  that  are  not  modeled  are  set  to  zero.  The  format  for 
these  cards  is  12F8.0. 

280.  Constant  lateral  inflow  cards.  The  values  for  the  concentrations 
of  the  constant  lateral  inflows  are  placed  on  the  line  immediately  below  the 
initial  conditions,  in  the  same  order  and  using  the  same  format.  These  con¬ 
centrations  must  correspond  to  the  conditions  for  the  constant  lateral  flows 
specified  in  the  hydrodynamic  input.  If  the  user  elects  to  simulate  the 
impacts  of  time -varying  lateral  flows,  the  name  of  the  file  containing  the 
time-varying  data  is  listed  in  the  third  record  of  the  RIV1Q  control  file. 

281.  Dispersion  coefficient  cards.  These  cards  assign  the  horizontal 
dispersion  coefficient.  The  format  for  the  dispersion  coefficient  is  F10.0. 

282.  The  user  can  simulate  an  arbitrary  conservative  or  nonconservative 
constituent  with  the  coliform  bacteria  variable  by  setting  KCOLIDK  -  0.0  or 
to  a  specified  first-order  kinetic  rate,  respectively. 

283.  In  most  applications,  the  initial  concentrations  of  water  quality 
constituents  at  each  node  will  not  be  known.  This  problem  can  be  overcome  by 
several  means.  If  water  quality  data  are  available  at  several  stations  along 
the  stream,  values  could  be  interpolated  for  the  nodes.  If  such  data  are  not 
available  for  the  conditions  being  simulated,  then  a  simulation  can  be  made 
with  estimated  initial  conditions  and  time -invariant  boundary  conditions  that 
are  the  same  as  the  first  set  of  time -variant  boundary  conditions.  The 
resulting  steady- state  nodal  concentrations  are  then  used  as  the  initial  con¬ 
ditions  for  subsequent  simulations.  However,  these  steady- state  initial  con¬ 
ditions  still  may  not  be  representative.  If  the  nodal  concentrations  change 
significantly  following  the  first  flush  (system  travel  time),  then  the  initial 
conditions  were  probably  not  representative,  and  the  results  during  the  first 
flush  should  not  be  used  for  interpretation. 

284.  It  is  possible  to  improve  the  initial  condition  estimates  to  pro¬ 
vide  more  meaningful  results  during  first  flush  if  conditions  (flows, 
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loadings,  etc.)  during  or  at  the  end  of  the  simulation  (but  after  first  flush) 
are  similar  to  the  starting  conditions.  A  dynamic  simulation  is  made  with 
estimated  initial  conditions;  the  simulated  nodal  concentrations,  at  the  time 
that  conditions  (flows,  loadings,  etc.)  are  similar  to  initial  conditions,  are 
selected  for  initial  conditions  in  subsequent  simulations.  For  example,  sup¬ 
pose  that  the  simulation  starts  on  Monday  and  ends  on  Sunday  for  a  stream 
below  a  peaking  hydropower  dam  where  peaking  operations  occur  on  weekdays  and 
steady  low  flows  are  maintained  on  weekends.  Then  the  simulated  nodal  con¬ 
centrations  on  Sunday  should  provide  reasonable  estimates  for  the  initial  Mon¬ 
day  conditions  (provided  sufficient  time  elapsed  for  first  flush  and  other 
factors  are  similar  at  the  beginning  and  end  of  the  simulation) . 

285 .  Boundary  conditions  identification  card.  The  transport  equations 
require  boundary  conditions  for  the  upstream  end  of  every  segment.  However, 
in  the  case  where  the  segments  are  actually  part  of  the  same  stream  but  are 
separated  by  a  control  structure,  two  segments  are  modeled  but  the  boundary 
conditions  for  the  lower  segment  are  determined  by  the  upper  segment  and  do 
not  appear  in  the  input.  The  type  of  boundary  conditions  required,  therefore, 
is  uniquely  determined  once  the  network  structure  is  fixed.  The  user  indi¬ 
cates  to  the  program  on  this  card  the  segments  (ID)  whose  boundary  conditions 
will  be  given.  The  numbers  can  appear  anywhere  on  the  card  and  can  be  sepa¬ 
rated  by  a  comma  or  blanks  or  both,  but  they  must  appear  in  order,  with  the 
list  terminated  by  a  slash  (/) . 

286.  Boundary  condition  cards.  On  these  cards,  the  user  specifies  the 
filename  containing  the  time -varying  boundary  condition  data.  The  number  of 
files  specified,  and  their  order,  should  correspond  to  the  boundary  conditions 
identification  card.  The  format  is  A15. 

Boundary  conditions  file(s) 

287.  Time-varying  boundary  conditions  are  specified  in  external  files 
whose  names  are  specified  in  the  main  input  data  set.  An  example  of  one 
boundary  condition  file  is  given  in  Figure  19.  The  files  are  read  by  sub¬ 
routine  TIME_VARYING_DATA .  On  the  initial  call  to  this  subroutine,  the  files 
are  opened,  the  specification  card  read,  and  the  initial  update  time  and 
boundary  conditions  read.  On  subsequent  calls,  if  the  simulation  time  equals 
or  exceeds  the  next  update  time,  the  boundary  conditions  are  updated.  For 
simulation  times  between  the  update  intervals,  the  boundary  conditions  may  be 
linearly  interpolated  or  held  constant,  at  the  option  of  the  user.  Upon  read¬ 
ing  the  files,  the  filenames  and  data  are  written  to  the  output  file. 
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288.  Specification  card.  The  first  line  of  these  files  contains  the 
segment  number  for  which  the  boundary  is  provided,  the  number  of  boundary 
condition  updates  (NUMBC) ,  and  the  variable  INTBC .  If  the  variable  INTBC  is 
greater  than  or  equal  to  one,  the  boundary  conditions  will  be  linearly  inter¬ 
polated  between  update  intervals.  Otherwise,  they  will  be  held  constant 
between  updates  (a  step  function) .  The  format  of  the  first  line  of  the  file 
is  3110. 

289.  Boundary  update  cards .  Following  the  initial  line  of  the  boundary 
condition  file  are  NUMBC  lines  of  update  intervals.  Each  line  of  update  will 
contain  the  year,  month,  day,  and  hour  for  the  update  and  the  corresponding 
boundary  condition  concentrations  (mg/1)  for  each  of  the  12  water  quality 
constituents,  in  the  following  order:  temperature,  CBOD,  organic  nitrogen, 
ammonia  nitrogen,  nitrate  plus  nitrate  nitrogen,  organic  phosphate,  dissolved 
phosphate,  reduced  manganese,  reduced  iron,  dissolved  oxygen,  coliform  bacte¬ 
ria,  and  algae.  The  format  for  each  update  is  315,  15F10.0.  The  update  times 
should  bracket  the  period  of  model  simulation. 

Lateral  inflow  file 

290.  The  lateral  inflow  file  contains  the  time-varying  lateral  inflow 
concentrations.  If  the  user  elects  to  input  time-varying  lateral  inflows 
(LAT0PT>1) ,  the  file  name  (with  DOS  extension  *.LAC)  is  given  in  the  control 
file.  An  example  of  the  lateral  inflow  file  is  given  in  Figure  20.  The  file 
is  read  by  subroutine  TIME_VARYING_DATA .  On  the  initial  call  to  this  sub¬ 
routine,  the  file  is  opened,  the  specification  card  read,  and  the  initial 
update  time  and  lateral  inflow  concentrations  read.  On  subsequent  calls,  if 
the  simulation  time  equals  or  exceeds  the  next  update  time,  the  boundary  con¬ 
ditions  are  updated.  For  simulation  times  between  the  update  intervals,  the 
lateral  inflow  concentrations  may  be  linearly  interpolated  or  held  constant, 
at  the  option  of  the  user.  Upon  reading  the  files,  the  data  and  filename  are 
written  to  the  output 

291.  Specification  card.  The  first  line  of  the  lateral  inflow  file 
contains  the  specifications  for  the  number  of  updates  (NUMLAT_UD) ,  the  number 
of  nodes  which  will  receive  lateral  inflows  (NUML) ,  variable  LATOPT,  and  the 
number  of  water  quality  constituents  (NUMSYS) .  If  the  variable  LATOPT  is 
greater  than  or  equal  to  one,  the  lateral  inflows  will  be  linearly  inter¬ 
polated  between  update  intervals.  Otherwise,  they  will  be  held  constant 
between  updates  (a  step  function) .  The  format  for  this  line  is  AI10. 
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Figure  20.  Sample  RIV1Q  *.LAC  input  data  file 


292.  ‘Node  specification  cards.  Following  the  initial  line  of  the  input 
will  be  NUML  lines  on  which  the  node  numbers  that  will  receive  the  lateral 
inflows  are  specified.  The  node  numbers  correspond  to  the  order  specified  in 
the  main  input.  The  format  is  15,  so  there  will  be  one  node  specification  per 
line  of  input. 

293.  System  specification  cards.  Following  the  node  specification, 

there  will  be  NUMSYS  lines  of  input  on  which  the  user  specifies  the  water 
quality  constituents  which  will  have  time -varying  lateral  inflow  concentra¬ 
tions  specified.  There  may  be  up  to  12  concentrations  updated,  and  the  number 
system  corresponds  to  the  number  of  the  state  variables  (1  -  temperature,  2  - 
CBOD,  3  -=  organic  nitrogen,  4  —  ammonia  nitrogen,  5  -  nitrate  plus  nitrate 

nitrogen,  6  «=  organic  phosphate,  7  -  dissolved  phosphate,  8  -  reduced 
manganese,  9  -  reduced  iron,  10  =  dissolved  oxygen,  11  =  coliform  bacteria, 
and  12  -  algae).  The  format  of  these  cards  is  15. 

294.  System  label  cards.  There  will  be  NUMSYS  system  label  cards  on 
which  the  user  may  specify  the  names  of  the  water  quality  constituents  in  the 
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order  in  which  they  occur  in  the  system  specification  card.  This  card  is  only 
for  the  convenience  of  the  user,  as  the  names  are  not  used  in  the  program. 

295.  Update  cards.  This  card  group  consists  of  NUMSYS+1  lines  of  input 
and  the  group  will  be  repeated  NUMLATJJD  times.  The  first  line  of  the  input 
card  contains  the  year,  month,  day,  and  hour  of  the  update,  with  the  format 

15 , 15 , 15 , F10 . 0 .  Following  the  update  time  will  be  NUMSYS  lines  of  input  con¬ 
taining  the  concentrations  of  the  water  quality  constituents  in  the  order  in 
which  they  were  named  in  the  system  specification  card.  There  will  be  NUML 
columns  of  data  on  each  line,  corresponding  to,  and  in  the  order  of,  the  nodes 
specified  on  the  node  specification  card.  The  format  for  each  of  the  NUMSYS 
lines  of  input  is  15X,  150F10.0.  Therefore,  following  the  update  time  will  be 
NUMSYS  lines  of  input,  each  line  containing  NUML  data  points. 

Meteorological  input 

296.  Meteorological  data,  required  for  heat-exchange  computations  when 
ITEM  is  equal  to  zero,  are  provided  in  a  separate  input  file.  If  the  user 
elects  to  compute  heat  exchange  using  the  full  heat  balance  method  (ITEMP— 0) , 
the  name  of  the  meteorological  input  file  (with  DOS  extension  *.MET)  is  listed 
in  the  fourth  record  of  the  control  file.  An  example  of  the  *.MET  file  is 
given  in  Figure  21.  The  file  will  be  opened  and  read  in  the  subroutine 
TIME_VARYING_DATA . 

297.  Card  1 .  The  user  here  specifies  the  dust-attenuation  coefficient 
(DUC) .  Water  Resources  Engineers  (1967)  gives  a  range  of  0.0  to  0.13  for 
several  locations,  although  results  are  not  very  sensitive  to  changes  in  this 
range.  The  format  for  this  card  is  F10.0. 

298.  Card  2 .  The  user  here  specifies  the  local  latitude  (LATUDC)  and 
the  local  longitude  (LONTUC)  of  the  project,  and  the  longitude  (LSMC)  of  the 
standard  meridian  east  of  the  project  (standard  meridians  are  in  increments  of 
15  deg,  e.g.,  75,  90,  105,  etc.).  Each  value  on  card  2  is  in  degrees.  The 
format  for  this  card  is  3F10.0. 

299.  Card  3 ■  Here  the  user  specifies  the  interpolation  option  (INTMET) 
and  the  number  of  meteorological  updates  (NUMT) .  If  INTMET  >  1,  then  the 
values  for  meteorological  variables  will  be  linearly  interpolated  between 
update  intervals.  Otherwise,  they  will  be  held  constant  (a  step  function). 

The  format  for  this  card  is  2110. 

300.  Update  cards.  Here  there  will  be  NUMT  lines  of  input  providing 
the  update  times  and  meteorological  data.  The  user  here  specifies,  in  the 
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Figure  21.  Sample  RIV1Q  *.MET  input  data  file 

following  order,  the  year,  month,  day,  and  hour  of  the  update,  the  cloud  cover 
(between  0.0  and  1.0),  wind  speed  (miles  per  hour),  dry  bulb  temperature 


(degrees  Fahrenheit) ,  wet  bulb  temperature  (degrees  Fahrenheit) ,  and  the  atmo¬ 
spheric  pressure  (conventional  inch  of  mercury) .  The  format  of  these  cards  is 
15,15,15, 6F10 . 0 . 

Output 


301.  The  output  from  RIV1Q  (Figure  22)  consists  of  data  for  each  seg¬ 
ment  at  each  print  interval.  At  the  top  of  the  page  appears  the  program  title 
followed  by  the  run  date.  The  next  line  prints  the  run  title  supplied  by  the 
user.  After  that  comes  the  elapsed  time  in  year,  month,  day  and  hours,  and 
the  segment  ID  number  and  name.  Only  those  parameters  modeled  appear  in  the 
output.  Headings,  units,  and  values  appear  in  column  format.  The  values  of 
CBOD  and  DO  are  printed  with  one  decimal  place  (corresponding  to  analytical 
accuracy),  the  remaining  variables  with  two  decimal  places. 
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302.  Graphics  output  from  RIV1Q  consists  of  binary  data  for  each  seg¬ 
ment  and  is  available  with  the  option  IPLOT.  This  file  will  have  the  DOS 
extension  * . GRF ,  with  the  same  name  as  the  input  file.  An  ASCII  text  file 
with  the  extension  * . EDF  will  also  be  available  for  graphical  post-processing. 


165 


+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

* 

4c  4c  4c 

4) 

+ 

* 

4: 

d 

+ 

* 

4c 

bo 

+ 

* 

4c 

»— 1  o 

+ 

4c 

OO  O 

OO  o 

o  OO  o 

< 

+ 

* 

4t 

o  <r 

o  m  O 

o  oo  o 

OO 

oo 

+ 

* 

4c 

<T  O  CSI 

hn  in 

vd  cr>  <r  o 

o  o 

oo 

E 

+ 

* 

hJ4c 

oo 

H  O  w~i  O 

OO  cn 

iDiDH  » — • 

OO 

oo 

oo 

E 

+ 

* 

4c 

oo 

*  •  • 

m  m 

oo 

oo 

»-J  o 

+ 

* 

W  4c 

H  <-M  r-M 

oo  o 

<r  — «o  o 

*  * 

CJ 

+ 

* 

4c 

00  o 

VDO 

oo 

oo 

+ 

* 

Q4c 

<  CM 

CM 

o 

o 

* 

4c 

o 

o 

o 

C/3 

* 

— i  o  4C 

K  1 

Mill 

III! 

III  l 

«  1 

H 

H 

a  o 

H 

* 

4c 

Z 

* 

>£4c 

< 

* 

4c 

I  1 

I  1 

H 

* 

M  4c 

4) 

cn 

* 

tH  4C 

CO 

s 

P 

fa  o 

Z 

* 

Pi  4C 

4) 

p 

d  d 

CD  CD 

CD  CD 

CD 

o 

* 

H* 

CD  CD 

CD 

d  Pm 

tKSK 

CD 

CJ 

* 

l  4c 

-J  1 

P*C 

CO  4) 

P  bO  4) 

r— i 

d  d 

oj  a! 

CO 

d 

* 

M  4c 

C  I 

p  d 

4>  CD 

JS*H  CD  d 

PM  bO 

QQ 

oo 

d  i 

CM 

d 

.J 

* 

•J  4c 

«w 

O  CD 

b04>  cn  O 

O  1 

SK 

So 

< 

* 

Z  1 

P 

O  SX4> 

<U  *H 

bOcsJ  -U 

•H  1 

03 

P3 

* 

<  4c 

<  I 

DO  - 

P  P  CJ 

4)  CJ  ~P 

—  O  <U 

4)  q) 

4)  a 

P  1 

O 

* 

<* 

£  i 

Pm  iH  O 

Sk  O  Z  d 

CM  bON 

E  E 

6  E 

&l 

R 

<r 

PJ 

* 

P  4c 

-s 

>  P 

0Q  P  bO  CJ 

O  wiH 

03 

1 

•H  *H 

CD 

•H  iH 

O 

u 

* 

ED4c 

C/3  1 

rH  -H  PM 

>\  PM  —  *rl 

bO  T3 

H 

1  HH 

H 

HH 

1 

—i 

PM  O 

* 

O'  4c 

*•  | 

g  * 

— *  d  P 

03  d  CNJ  Mm 

w*t)  *H 

d 

6  B 

d 

6  E 

OO  I 

p 

* 

O' 4c 

fa  R 

Bffi 

a)  o  y  h 

O  H  O-H 

4)  X 

P 

> 

> 

CD  1 

-» 

z 

* 

1  4c 

W  1 

•  to 

rHiH  d  d 

d  *H  d  bOP 

XNO 

d  4) 

u 

o  o 

p 

0  0 

d  i 

4) 

fa 

fa 

4c 

4c 

W  1 

pd  w 

,0  b0  4>  O 

O  P  t)  w  P 

d  -rl 

5  CD 

4) 

p  p 

V 

P  P 

P 

bO 

4c 

fa  PC  4c 

O  1 

3 

d  Ofai-I 

rl  O  rl  -H 

OT3  4) 

d  d 

P 

Mm  Mm 

p 

Mm  Mm 

d 

PO 

+ 

4c 

4c 

d 

t4  f-4  CD 

P  d  «9  4)2 

4)  i-t  CD 

a  3 

d 

d 

P3  R 

rH 

o 

+ 

4c 

UW* 

1  1 

-  o 

p  ocn 

O  P  EK  CJ 

O  X  4) 

CO 

M 

oo 

w 

oo 

i 

3 

+ 

4c 

4c 

d*rl 

d-Hpa  j3 

dfajd  d  p 

o  d 

- 

oo 

oo 

E  R 

fi 

+ 

4c 

H* 

h  i 

O  4J 

>P3  2  Pm 

P  '-'PM  4)  0 

P  d 

— h  — 

P 

oo 

p 

oo 

4)  R 

*r4 

cn 

+ 

4c 

4c 

fa  1 

•H  d 

fa  Hfa 

d  d  bo 

d 

oo 

o 

oo 

P  R 

C/3 

o  o 

+ 

4t 

<  4c 

W  1 

P  *— 1 

4)  P  P  P 

W  4J  ^ 

d  o  d 

£S 

*H 

i-H 

•  • 

CO  R 

SC 

+ 

4c 

_  4c 

d  3  d 

6  0  0  0 
•H  Pm  Pm  Pm 

d  o  >  o 

rH  H  d 

P 

CM  CM 

PM 

^M  — M 

X  R 

R 

+ 

4c 

^4c 

^  1  *H  fi  O 

p  4)  0M  *H  *H 

pm  »-m  r 

BC  • 

Oh 

—M  «— H 

CD  H 

+ 

4c 

4c 

H  I 

3  tI  tI(h 

d  P  3  P 

O 

cn 

+ 

4C 

4c 

C  l 

fiC/3  P 

•  »  » 

4)  d  •  cr>d 

'd'd'd 

—  PC 

w 

sc  o 

+ 

4* 

4c 

a  ■ 

DO  4)  £ 

i  mm  mm  mm 

p  O  Mm  W  fa 

o  o  o 

5 

+ 

4c 

4c 

i 

cm  4m  Mm 

d  o  mm 

■H  -H  iH 

•» 

«— «.  -■»* 

+ 

4e 

4c 

O'! 

*d 

pH  41  4)  4) 

o  ^  4)  d  d 

P  P  P 

0)  - 

00  00 

OO  oo 

z 

+ 

4c 

4c 

p-H  | 

uP  a 

o  o  o 

O  d  O  4)  4) 

0-0-0- 

CO  P 

p  p 

p  p 

bO 

+ 

4c 

4c 

>  1 

o  o 

-oo  o 

(DU  MM 

S  fi  s 

*H  4) 

3  3 

3  3 

PO 

+ 

4c 

4c  4c  4c 

M  | 

fa  P  »-4  P 

•  bC  0  O 

3  3  3 

H  CD 

O  O 

0  O 

o 

+ 

fa  i 

O  4-1  d  0)  ft)  0) 

pL  O  4)  P  H 

CD  CD  CD 

d  d 

m  sc 

SC  EC 

+ 

• 

4>fa  d  S3  P  P  P 

CD  H  H  P  P 

d  d  d  ^ 

3  3 

w  w 

'■» <• 

+ 

fa  1 

6  M  P  3  3  3 

O  P  3  i-l  P 

o  o  o  d 

CO  CO 

H «— 1 

a 

+ 

a 

«rl  0) 

OO  4J  P  P 

J3i-i  P  SC  Z 

~o  o  o  X 

i-H  *-H 

oo 

+ 

pm  i  H  gh  d  d  «  d 

PmSE  d-^.^ 

z 

CM  MM 

d  d 

d  d 

03 

+ 

X  ■ 

PI  d 

ouuu 

HdCbodddbo 

o  o 

££ 

&& 

+ 

<  i 

PH  HO  4)  0)  0) 

HH  4)  4)  4) 

--  d  4)  4)^- 

+ 

C/3  1 

P  4) 

d-  CM  0h 

d  d  abObOtN  bObObOCM 

4)  Q} 

4)  4) 

4)  4) 

a 

+ 

d  "O  P 

1  6  6  E 

bObO  6  >nSnO  XXbiO 

6  6 

P  P 

P  P 

Eo 

+ 

P  d  dO  4>  4)  4) 

HH  OXXbflXXXW 

•P  *rl 

d  d 

d  d 

4) 

+ 

W  fa  iJ 

~HH  H 

<<  HOO 

OO^ 

HH 

M  M 

M  hM 

H 

+ 

+ 

+ 

166 


Figure  22.  Sample  RIV1Q  *.OUT  output  data  file  (Sheet  1  of  14) 


For  Segment  f  1  De s c ;  MAIN  STEM  ABOVE  RE REG  DAM 

IDAMO  -  2  DAMKO  -  0. 


60 

5 

u 

d 

Q 


U 

01 


O 

d 


G 

o> 

£- 

u 

o 

44 

•V 

01 

4J 

U 

0) 

JJ 

14 

o 

o 


oooo 
o  ooo 

o 

o 

o 

cn 

o 

cn 

o 

m 

co  OOOO 

o 

o 

o 

o 

<N  —• 

I 

i 

o 

i 

i 

i 

ft.  co  co  bd  XI 
SHHZW 
w  <  <  M  H 

H  MH 


Sc 

bd 

SE 

SE 

o 

o 

o 

PQ 

o 

CQ 

O 

SE 

1 

CQ 

o 

g 

CJ 

s 

bd 

-too 

comm 


NOH 


O  — <  CM 
<  W  W 


o 

o 


I 

> 


co 

H 


o 

o 


o 

o 


o 

o 


<r 

O 


o 

w 


o 

d  oi 

<N  •*  O  O 

CM 

G 

d 

— OiH  d 

G 

b-t  ■{:  U  Cd 

^4 

■H 

<X  *  drj 

O^O-H  cd 

03 

X 

cd 

O  CQ 

X 

a)  d 
xi  o 


C/3 


4J 

d 

I 

bo 

►.4J 
«  3 

S  o 

U  0) 

o  cd  X 

44  4J  W 

o  __ 

«d  OB 

4J  ai 

<0  oi  u 

o  «  W) 

0)  o 

4J  Xi  *4 

d  ha* 

cd 

4J 

s  g 

8  g 


w  -  ±j 

Q)  -  0)  aj 

o)  bool  bo  o) 
bOd  bOd  EC 
d  cd  d  « 
coxi  coxJH 

X  OX  UH 
o  X  o  X  d 
■KW  X  W  ^ 

o  w  w  • 

4J  JJ  I 
.  4J  cd  4J  cd  O 
bo  cd  oi  cd  oi 
0)  0)  DC  0)  DC  - 
O  DC  PC  6 
o)  d 

-  G  O  G  O  *H 

o)  o  cd  o  u 

U  4J44  *j  01  X 
3  4J  U  4J  CLi4 
4-1  o  d  O  tN— I 
cd  «  C/3  CQ  4J  iH 

u  d 

a)  n  *-i  m  bo  cr 
ouo  o  o  d  w 

B  44  44  44  *H 
Q>  4J  • 

HUUficdCL 

d  d  u  d  s 

4J  ft)  01  01  bo  0) 
C  *H  *rl  H  tI  H 
o>  u  o  «o 

6  0)  4J 

b04-l  44  d  o  d 
QJ  44  44  *H  Cd 
W  0)  0)  C/3  0)  4J 
O  O —C  <0 

Boo  o>x  d 

0*  M  O 

q)  01  0)  ki'HO 

U  4J  4J  d  H  « 

4J  Cd  Cd  o  Cd  I 

C/3  P<5  od  c/3  >  •— < 


0) 

4-1 

cd 

ed 

d 

o 


14 

4J 

•H 

d 

01 

o 

X 

u 


6 

1 

X 

cd 

X 


0) 

4-> 

cd 

Pd 


u 

0) 

o 


X! 

u 


•H 

d  o) 

0)  4-* 

O  Cd 

14 
44 

o 

cd 
a 
0) 
o 

o 

_  CQ 

4J  *0 

•HX*H 


01 

4J 

cd 

Pd 

o> 

X 


cd 

pd 

d 

o 

tH 

4J 

cd 

o 


X 

o 


•  —I  4-1 
U1 —  cd 
d  bo 
O  B  • 

o  a 

01  £0 
4-i  d  o 

23  . 

4J  XO 
t4  cd  • 

SEX  Q 


<N 

4J— -  4J  4J  f~i 

cd  —c  cd  cd*-- 
b0 

*  Sk  •  6 
ox  o— -  o 
d  d  m  d  - 
o-o  o  6  o  B 
o  ot  o  o  d 

i-T  «  d  *  o)  •  *3 

—  o-o  o  4J  o  x 

bO  •  0)  •  <d  *  cd 

G  O  cd  O  Pd  O  X 


14  14  14  14 

o  o  o  o 

44  44  44  44 


o 

4-> 

o 

0) 

14 
14 

o 
o 
d 

-  -  cd 

4J  4J  T> 

d 

0)  cd  oi  — * 
iH*0  «H 
O^  O  - 
«rl  «-4  *H  d 
44  ’V  44  >s44  44  O 

44  —  44  Cd  44  d  44  *H 
01  — t  01*0  01  O  01  4J 
O  O'-*  0*H  O  ft 
o  dunu  4JU  u 
O  O4  o 

0)*HQld01l40)« 

4J4J4J04J04JT3 

cdcdcd-HcdcocdC 
Pd  O  Pd  4J  Pd*p  Pd 
*rt  Cd  <  0) 

044  O  O  O  O  4J 
•H  *H  *«4  t4  *r4  Cd  *rl  Cd 
44  »4  44  44  44  -H  44  X 
*J  *H  t-i  *H  d  *H  CL 
J  U*rl  O  L  O  O  OCO 
4O)d0l4J0)gQlQ 
-  Cu  01  CL*rt  Cl  G  Clx) 
4COOCOSSCO<  CO  CL 


O  SO 


167 


Figure  22.  (Sheet  2  of  14) 


ooo  ©  o© 

m  —•  © 


©  -h  ©  ©  ©  © 


©©© 

©o© 


cm  © 
©^ 


© 

© 

©  ©  ev©  ©  ©  © 

©  m  <r  cm  ©  © 


—*  ©  ©  ©  —4©  M 

I  CM 


©  ©©  © 
O  ©  ©  © 


MM©  1-3  X  © 

00  O  X 

OM 

Q  ©  O  O  W 

O  05  M 

05© 

M  M  CO  O  O  co 

P5  ©  © 

©  © 

M  H  M  Pm 

© 

©  ©  © 

H  M 

MO  55  M 

O  M 

M 

ssssss 

S  S 

M 

X 

rO 

-  *o 

X  4) 

cd  u 

*0  3 

— -  *o 

m  -  41 

- 

X  05 

CM 

-  aj 

* 

d*0  4) 

* 

O'—  44 

B 

H  m  43  cd 

4J  44  P5 

bO 

0  -  £ 

•0  X  0  43 

- 

1-1  4J  h  44 

0  X 

X  H  U  » 

0  0  X 

OH  6 

0*0  0 

cd  m  m 

0"- *0 

d  4J  as  © 

Mm  *-m  . 

Oh  bO 

U  — < 

h  0  CM  rH  H 

3  - 

MS  *  <  Cd 

CO  0  - 

♦  bO 

44  0 

u  B  643  M 

O 

H  0  44 

0  S'v  OH  < 

44 

005  0 

M  O  •  i-l  — - 

0 

d  p5 

X 

*44  uJa  6043 

P5 

d  43 

0  X 

44  H  bO?  B  U 

0  44  X 

*0  0 

C  M  «H 

d 

43  £  0 

*  *o 

4)  O  -  44  -43 

o 

©  O  O 

H  4c 

H  ©  "O  Cd  CM  J 

H 

h  0 

.H 

o  d  ^ 

44 

do© 

5P^ 

H  h  0 

0 

o 

6  go 

Mm  O  B  O  « 

O 

0  0 

B 

MM  M  O  <3  X 

H 

X44  44 

4>  ©  O  43  • 

CM 

44  XX 

0  - 

O  -P  ©  O 

H 

H43  43 

44  0 

©  d  d  *o  d 

h 

0  (X  (X 

0  44 

4)  4)  d  4)  O 

44 

COO 

05  0 

43  H  60  4)  O  © 

H 

0  h  U 

^  05 

4J  O  X  60  3 

d 

©  O  O 

43 

0  H  X  0*0  09 

0 

0  0 

44  X 

P5  Mm  O  h  4)  3 

© 

0J3S 

3  0 

4-1  44  05  OH 

44 

o  a 

O  QJ  44  i-l  h-— 

44 

xo  O 

h  0 

H  O  dSE  43  o  bod 

43  H  i-l 

©O 

44  ©  0  M  43  B 

0 

ft'wm 

i-l  EH  O. 

B 

OHM 

H  H 

U  0H  0  43  «  - 

H 

U  V  o 

0  0 

43  44*0  44  44  O  CM  *0 

O  0  0 

60  60 

0-0  O  O  0  43’—. 

0 

0  PP 

H  M 

coMcoHMPmmco 

S  co  co 

<  <1 

HM 

M  M 

M  M  rx  — 

O  M  CM  O 

<P 

DQ  M 

H  ©  co  O 

<  <3  uj  < 

fig 

M  ■<  M 

©  QQ  X 

H  S 

h 

CQ  OQ  CQ  CM 

M  M 

0 

M  Z  Q 

S  S  S  H 

O 

ffi  Z 

322^ 

t-J  X 

£ 

M  M  M 

43 

O 

- 

X 

X 

h  T3 

M 

0 

0  0 

*o 

*C  X  u 

U 

d  0  3 

0 

44 

•H • 

3*0*0 

d 

O'-  0 

H 

0 

03  M  05 

H 

d 

M 

O 

o 

0  -  0 

C*“ 

H 

H 

*0  44 

M-l  H 

44 

«  d  0 

44 

M-l  H 

0 

0  0P5 

d 

0  X 

*o 

0  6 

0 

O  4443 

H 

d  O  03 

cn  I 

©  d  CM 

X 

J2  Q  H 

tc  -  & 

0  o 

HO 

O  0 

z  d  0 

d  44H  h 

H  d  0 

o  co 

o  d  o  o 

44  bO  0 

43  043 

o  o 

H  0  H  H 

O  B  « 

H  b044 

HZ  h 

44  i-|  M-l  43 

0 

X  c 

O 

O  O  M-l  © 

d  -d 

bO  X  X 

XH  4-1 

d  H  0 

O  U  0 

d  o  0 

0  0 

H  M-i  O  0 

H  3  60 

H  0 

O  0*0 

44  M-l  ©  H 

44  O  d 

44  0  44 

0  O  0 

X  0 

0  O  0 

0  3  0 

QH  0 

M  0  bO  0 

•o  os 

0  043 

© 

©  d  0 

H 

H  VP 

Z  44 

44  H  60 

X  44  44 

M  O 

i  0  d 

43  bO*OH 

o  o  d 

0  043 

bO  0 

60  d  0  < 

55  0 

P5  d  O 

h  XH 

H  H  43 

43  H 

O  H 

O  44  44 

H*0  co  B 

OOO 

44  43  43 

H  0 

0  0 

H  QH 

d  hS 

h  0  U 

M-l  43  44  U 

.d  M 

0  0 

o  d  0 

O  COH  M 

5  0M 

H  ©  44 

M-l  0  0 

CQ  0 

O  0 

44  0 

d  44  CO  h 

S  0  O 

H  44 

44  dP5 

OH  O 

o  d© 

m  d  x 

d  M 

H  0H  44 

H  0 

H  0  44 

0  d 

44  CO  0  O 

0  bO  0 

0  H  H 

H  44  0 

h  bO  0 

0Q  d  44 

0  O  0 

ojd  > 

OHH  M 

0  0 

©  H  d 

H  60H 

PM  0< 

•  S  05 

<H  0 

M-l  H  h 

bO  d 

o 

H  4-1  44 

M  HQ 

H  H  h  0 

d  *o  o 

0  0  d 

0 

0  <  0H 

O  dH 

O  OH 

O  0*0 

bO  0  0 

©  0  H 

H  © 

©  o  d 

H  h  d  h 

H 

h  44 

0  H 

0  0  H  0 

•  d  o 

H  0  43 

-  0  Hi 

1  0  H  > 

o  o  0 

0-44  bOCM  44  U 

d  d  d  d 

•  U  CL 

G  0  H ' 

*—030 

O  HO  O 

Q  M  CO 

M  05  M  ^  P5  CO  M 

ZHZ© 

© 

©o© 
•  ©  © 
©  *  • 
©© 


© 

© 

© 


1 

1  1 

1 

H 

M  P5  P5 

© 

CO  CO  CO 

o 

Z  M  © 

CQ 

M<0 

© 

CQ 

M 

© 

CM 

*  X 

* 

B  o 

-*•—  o 

C  60  O 

0 

bO  -  4) 

O  Cd  4J 

HH  X 

44  C  X43 
ri  O  a!  P, 
SC  g*0  O 


6  o 

n  a] 

d  u  -s 

dOQ 
bOM-i  0*0 
h  03  d 
O  0  ©  0  - 

4J  © 

U  Cd  MH  o 
O  04  O  cd  CQ 
M-l  M-t  bO© 
41  H 
4)  O  41<  O 
44  H  44  4J 

cd  3  0  mm 
01$  O  P5  O  CO 
CO  4) 

60  bO  d  o 
dH  d  o© 

H  0  M  H 
H43H  44  43 
44  44  44  O  O 
4J  d  cd  iH 
4)  0  0  h.C 
co  CO  co  M  7 


©  ©© 
©  O  © 


III 

M  H  <r 
©MO 

P*  CO  PM 

M  a,  55 

MM 


60*0 
h  4) 

0J5 

h  O 
O  03 

-M  CO 
M  H 

ua 

i  d 
4>  h 
OH  O 
H  U  CM 
dH  - 
0  44  S 
bCM-i  to 
h  41  4) 
O  OH 
© 

h  4) 

ovu 

b  4J  h 

cd  3 
OP5  O 
44  CO 

ad  bO 
aJ  d  u 
hh 
XH43 

0  44  44 

o  v  d 
4>  43  4) 
©  CO  PQ 


M-l 

O 

CO 

4J 

a) 


168 


NOTE:  These  Data  may  be  Corrected  for  Temp.,  D.O. ,  etc.  During 
Program  Execution 


<±4 

o 


4J 

Q) 


o  o  o  o 

O 

o 

© 

© 

-4©©  © 

© 

© 

o 

© 

©©  O 

©  ©  © 

©  ©  © 

CM  © 

o  © 

a) 

oooo 

H 

in 

© 

m 

m 

oomm  © 

•-H 

cn 

© 

© 

mco 

-H  O 

©  ©  © 

O  ~4 

©in 

JC 

CO 

V-/ 

m  oo  O  o 

o 

© 

in 

© 

© 

CM  ©  •— <  O 

© 

© 

© 

© 

©  — « © 

©  ©  © 

©©© 

©© 

© 

CM  — l 

H 

i 

© 

i 

N 

i 

III  1 

i 

I 

1 

1 

i  i  i 

1  II 

III 

1  1 

1  l 

Cl*  CQ  c/3  04  X 

z 

X 

Z 

»-M 

DC 

©  -4  CM  > 

52 

z 

X 

**3” 

u  ^  a 

i-3  X  Q 

CQOtH 

ox 

HX 

CM 

CM 

a) 

X 

£hh  SB  W 

W  <  <jHH 

H  C/J  M 

-E-» 

© 

Q 

PQ 

© 

Z 

o 

1 

o 

CQ 

© 

s 

CQ 

© 

§ 

§ 

<  W  W  M 

C/3 

d  H 

O 

tH 

44  0 

3  0 

§ 

JS 

z 

% 

o 

Pm 

< 

©  Q  O 

W  H  M 
U*  i-J 

fcd  o 

O  <r  W 

O  O  w 

CM  PM  Q 

g  *2 

O  cd  X 
c*5  o  a 
u  o  © 

£33 

X  © 

ss 

5  2 

<  Q  , 
Q  Z 
w  X , 

xx 

o 

© 

W 


Q 

d  «) 

CM  **  0  o 

CM 

1 

^4r  ©  *H  d 

— - 

6 

X*  44  eft 

•— ( 

i4 

<r  *  3 *h 

O'— .  ©  rH  Cd 

eo 

X 

es 

—  3c  w  OOQ 

■H 

X 

W  -  44 

4)  -  ft)  cd 

O  00  0)  WO) 
00  Ci  X  d  tc 
e  eft  C  eft 
flS  43  eft  43  i-H 
ox  orH 
0X0X3 
~  X  W  X  W  X 
©  W  W  I 
44  44  I 

*  44  (ft  44  <S  O 

oo  <c  o  <a  a) 
ft)  0)  CQ  ft)  S3 
©DC  EC  6 
ft)  *W  3 
-  6  O  6  O  *H 
ft)  o  «  o  m 

K  4J  4-1  4J  ft)  J3 

3  *j  n  4J  o**h 
44  O  3  O  XM 
d  pq  go  cQ  4J  *H 
M  3 

ft)  M  )-i  M  00  a* 

ftooodw 

E  4-1  4-1  4-1  tH 
ft)  44  • 

H4J4JSaja 

titiCce 

U  ft)  ft)  ft)  00  ft) 
C  *H  H  *H  H 
ft)  o  o  « 

6  O  44 

004-14-1  CQ  d 

ft)  4-|  4-i  -H  CU 

CO  ft)  ft)  CO  ft)  4-> 
O  O  "--M  « 

SO©  0).d  g 
U  ft  o 

ft)  ft)  ft)  4*HO 
M  44  44  3  M  I 

44  aS  cd  O  eft  I 

Wp5XW>^ 


cd 

~o 


*3 

ft) 

o 

3 

*3 


*3 

ft) 

44 

O 

ft) 

M 

M 

O 

O 

d 

33 


4-» 

c 

ft) 


*3  *3 

ft)  ft) 

4J  44 

O  O 

ft)  ft) 

14  M 

M  u 

o  o 

o  o 

d  d 

53  s>. 

«  -  a) 

44  44*o 

dXd^ 
4)  cd  o)  ^ 

*rH  *3  *H 

S  OXO  O —  O  - 

«  *H  eft  «rt  MM*H  d 

44*3  44  X»H  44  O 

)  44**—  4-1  Cd  44  fj  44  *H 

3  4)H  11*0  ft)  O  4UJ 

J  O  O —  OtH  o  a 

UCUHUOOb 
3  0  0-0 

i  4)*HQ)dQ)ua><e 

i)tUJ  04J  04J3 
j  <dflScd*Hcdcacd<< 

3  X  O  Oft  44  X  *3  X 

J  t4  aj  <  ft) 

4  044  O  O  O  O  <0 

;  i4i4i4t4*»4  eft  -H  (d 

H  44  M  44  44  44  -H  44  ^3 

4  4->  *rl  *H  *H  d  *H  O- 

4  44  Om-I  O  M  O  O  O  W 

J44ft)dft)44ft)gft)0 
3  —  0-ft)  0-*H  P.B  CMd 

)HMDW3W<W(1< 


X 

X 

CM 

-  eft 

* 

d*o 

ft) 

* 

o— - 

44 

6 

■H  -m  X* 

cd 

44  *4 

(ft  -  S 

X 

00 

*3  X  0 

43 

- 

•H  44  M 

w  X 

X  *rl  © 

ft)  eft  x 

O  ^ 

o 

0*0  eft 

eft  fH 

M 

Cd  *■— .  *3 

d  44  3 

© 

44  w— 

0  M  00 

M  *H 

M  O  CM  i-l 

r4 

3  - 

MS*  < 

cd 

C/3  ft)  - 

* 

00 

44  ft) 

d, 

o 

«rl 

44 

Cd 

*3 


'I 


o  S  643  M 
O  M  —  uh< 
04  0  •  *H  — » 

44  4,0  0043 

4J  *H  00  5  6  o 


ft) 

44 

cd 

03 


.  Cd  44 
ft)  o3  cd 

g** 

Cd  44  >s 

43  >  cd 


X 

Cft  X 
*3  cd 
*  *3 


44  00  0) 
OM 
ft) 

d  -d 
O  M  aj 
•H  3  X 

44  o  d 

cd  u  cd 
-COS 


o  a 


ft)  0  -44  -43 

o 

©  0  o 

»H  * 

Z  0) 

■H  ©  *3  Cd  CM  ^ 

•rH 

M  ft) 

**—  »-4 

43  *H 

o  d 

44 

d©  © 

00— 

O  O  O 

•H  M  Cd  --4  44 

eft 

o 

6  X 

MQ-rl 

44  0  6  O  (ft 

O 

ft)  4) 

6 

44  X  ft)  d  X 

•H 

X44  44 

ft)  ©  0  43  ♦ 

44 

44  XX 

ft)  - 

«  0) 

O  44  ©  o 

t4 

*4MM 

44  ft) 

a  ft>  o 

©  c  d  *o  d 

M 

M  X  O* 

eft  44 

o  d© 

o  a)  d  ft)  o 

44 

d  o  o 

X  eft 

i-4  eft 

ft)  «H  X  0)  O  © 

•H 

ft)  M  M 

X 

ft)  Xft) 

44  o  X  X  3 

d 

©  O  O 

43 

«  d  44 

eft  M  X  0*3  « 

o 

cd  eft 

44  X 

cd  cd 

X  44  O  M  ft)  3 

o 

VXX 

5!  * 

•SX 

44  44  X  OH 

44 

o  o 

O 

O  ft)  44  -r4  M —  44 
•HOdZWOXd 
44  0  ft)  *H43  6  ft)  0*44  44 
t4  SH  O-  6  O  *H  *rl 

O  ft)  *3  <ft  ft)  08  — H  MOO 

044*0  4  4J  O  CM  *3 
O-cd  O  O  cd  43  —  O 
ca Pd co  c/3 


XO  o 
43t4M 
0*44  44 
O  *H  **4 
MOO 
O  O  ft) 
eft  O*  O* 
X  C/3  03 


M  O 
©  © 

»-4  i-H 
eft  cd 
00  00 
*H  H 


d*3  o 
O  d*rt 
U  Cd  44 

•  d  o 

O  O  ft) 

*  M  O. 
OHM 


169 


Ol© 
*3“  CM 


© 

© 


©©© 
©  O 


©©  — •  © 

I  CM 


65-h  W65 :* ~ 

03  65  hUMO 

<  W  <  U 


©© 

© 

©o© 

© 

©  ©  © 

©  o 

•  o  © 

© 

©o© 

•  • 

©  •  * 

©© 

©  © 

© 

©  ©  © 

I  1 

1 

1  1 

1 

Mil 

CM  © 

H 

W  PC  PC 

o 

65  H<r 

< 

CO  CO  CO 

o 

QUO 

o  tc 

ZWQ 

ca 

Pm  CO  O-i 

to  a* 

2<o 

o 

65  PM  55 

PQ 

Ut 

65  U 

5  < 

o 

PQ 

CM 

* 

E 


►> 

Cft 

o 

a) 

O 


ft) 

44 

►» 


eft  ft)  d 

U  OH 

l-IO 

Pi  44  «  -H 

«H  ft)  Xl  -  ft)  M-i 
a*J  60CM  44  H 
6  rt  -H—  Cft  3  a 
HffttJnpiUH 


d  60 
ft) 

60  - 
O  <ft 
H  *H 
44  d  >wd 
•H  O  eft  CL 

d  H  -3C 

eft  O  Q 
60»MO*O 
H  CQ  d 
O  ft)  O  eft  - 
4-)  a 
Pi  (ft  PHO 

o  o  (ft  ca 

44  44  600 

ft)  *H 
ft)  O  ft)  <J  O 
4J  H  4J  4-) 
(ft  3  (ft  44 
d  Op<  O  a> 
co  ft) 
60  60  d  O 

SUSS* 

*H  43  »H  4J  43 
V  4J  44  O  (4 
4J  d  4J  (ft  *H 
ft)  ft)  ft)  Pi  _d 
CO  PQ  CO  H  3 


60*0 
U  ft) 

Pi  o 

O  CO 

**6n  «o 

a<  th 

t!  Q 
i  d 
ft)  H 
OHO 

d-H^ 


2  Q 


© 

u 

CO 

ft)  I 

a 

© 


Pi  ft)  ft) 

•«k 

O  OH 

O 

44 

U  ft) 

d 

O  ft)  O 

o 

U  44  P< 

E 

eft  3 

60 

ft)  PC  O 

4) 

44  CO 

CO 

eft  60 

PC  d  U 

Pi 

«H  *rl 

O 

&HH43 

fe 

(ft  4J  44 

oi)  d 
ft)  4)  ft) 
Q  C/3  GO 


p) 

d 

a) 

& 

0) 

CO 

H 

O 


(ft 

44 

(ft 

O 

44 

d 

at 

jj 

00 

d 

o 

o 


d 

•H 

Pi 

3 

a 


o 

4J 

ft) 


o 

a 


a 

G 

ft) 

H 

Pi 

O 


*3 

ft) 

44 

3 

ft) 

Pi 

Pi 

O 

O 

ft)  d 

•*5 

►*44 

«  3 
6  3 
ft) 

«B  X 
OH 
CB 

°§ 
ft)  Pi 
CO  60 
ft)  O 
43  Pi 
hfti 


o©  o© 

© 

© 

o  o  o  © 

in 

© 

<n©  o  ©  © 

CM  *~H 

© 

© 

o 

i 

l 

I 

PjPQ  CO  65  53 

55 

65 

55 

SHHSBW 

Q 

a 

Q 

W  <  <  H  H 

PQ 

i-3 

« 

H  CO  M 

O 

< 

O 

~H 

55 

o 

o 

O 

65 

65 

I 

56 


O 

W 

Q 

d  a) 

CM  ~  O  CJ 
OH  d 
&H*  44  (ft 

*<s:  •  3^ 
Q  — OM  (ft 
—  IX  W  O  to 
Q  to 
-  44 

ft)  -  0)  eft 
ft)  60  0)  60  ft) 
60  d  60  d  S3 
d  Cft  d  Cft 
*43  OJH 
43  043  0»-4 
O  X  O  X  3 
*XW  X  W  U 
O  W  W  i 
44  44  I 

•  pi  eft  pi  eft© 
60(ft  ft)  eft  ft) 
ft)  4)  CO  ft)  S3 
0  03  SB  6 
4)  44  3 

*B  O  B  OH 
ft)  O  Cft  O  Pi 
Pi  p)  44  44  ft)  43 
3  P»  Pi  44  CP*H 
44  O  3  O 
eft  ea  co  pq  4J  >H 
Pi  3 

ft)  Pi  pi  Pj  60  or 
aooodH 

B  VM  iM  44  -H 
ft)  P)  • 

h*)y  fi  (ft  a 

d  d  C  d  s 

44  ft)  ft)  ft)  60  ft) 
dHHHHH 
ft)  U  U  CO 
6  *H  «H  4ft  ft)  44 

6044  44  d  O  d 

4)4444*H  eft 
CO  ft)  ft)  CO  ft)  44 

_  O  O  — i-t  co 
SOU  4)43  d 
(ft  O  eft  o 
ft)  ft)  ft)  P4«HO 
Pi  p>  44  3  Pi  l 
*4  eft  (ft  O  (ft  I 
CO  Qft  Qft  CO 


4J 

QJ 

0) 

pC 

00 


CM 

CM 

0) 

JH 

3> 


G 

3 

E 

•H 

X 

eft 

as 


pc 

d 

o 

•H 

P> 

(ft 

U 


44 

(ft 

O 


ft)  *H 

44  d 

(ft  ft) 

PC  ■  o 


(ft 

u 

ft) 

Q 


43 

O 


ft) 

44 

d  (ft 

5  *3  05 

Q  (ft 

60  ft) 

43 

44  - 

£  43  43  — 

5  U  CJ  O 

<H  -H  ac 

-  CM 

•  «H  44  44  — 

O  (ft  (ft  «-h 

d  60 

o  6  ♦  *  ►. 

O  U  O  43 

*  d  d 

ft)  B  O  0*3 

PJ  30  Oft) 

eft  6  ~  v 

u3  .  3 

*4  X  0-0*3 
H  eft  *  60  •  ft) 

5c£a  so  PC 


170 


o 

O 

-40  0 

o 

o 

O 

o 

O 

OOO 

o 

oo 

ooo 

CM  O 

O  O  ON  o 

to 

to 

00  to  «o 

o 

CO 

o 

O 

to  <r  o 

•■H 

fa  o 

ooo 

0-4 

o  to  <r  cm 

© 

o 

CM  ©  — « 

d 

o 

o 

o 

o 

0-40 

o 

oo 

ooo 

oo 

HO  oo 

1 

1 

1 

III 

i 

i 

1 

a 

1 

III 

i 

1  1 

III 

1  1 

1  1 

1  1 

as 

O  — t  CM 

> 

as 

2 

b< 

•a1 

US  US  G 

fa 

X  G 

0  O  X 

o  US 

X  US 

!  US  —< 

0 

o 

<  w  w 

w 

G 

2 

2 

O 

OQ  O 

o 

ST  U 

O  PS  US 

OS  G 

<  g 

1  0  U 

u 

t3 

CO 

< 

B 

% 

W  fa  CO 

o 

O  CO 

OS  O  Q 

oo 

g  a= 

< 

o 

3 

H 

5* 

fafa 

Cui 

3-  G 

uuo 

fafa 

fa  Sc 

I  u 

US 

O 

So 

as 

us  2 

2S2S3 

USK 

3 

o 

© 


ooo 
o  o 


o 

\o 

4J 

a) 

<v 


fa 

44 

id 

I 

o 

fa 


cd 

3 

cr 

fa 


o 

US 


at 


•fitJ 
ft)  O  O 

44  fa  fa 
3  44  44 


►> 

.o 

*U 

ft) 

O 

3 

X) 

ft) 


id 

.J  X 
JO 
X 

u  •v 

al  4) 
*C  >s  O 
3«3 

3-0*0 

O'—  ft) 


hu  wo 
*— i  C  fa 

fa  §p 
OB  2 

I 


u 

o 


3 

ftj 


<d 

u 

4) 

Q 

Q 

O 

0 

U 


3  PS  3  3 

u 

u 

U 

u 

44  fa  U 

o 

0 

0 

0 

« 

3  3  3  3 

fa 

fa 

fa 

fa 

fa 

P'S  O  6  3 

fa  C  3 

* 

•* 

•> 

« 

3 

3  44  o  PS 

•o 

•c 

•v 

no 

44 

O  3  fa 

3 

3 

3 

3 

3 

fa  W  3 

44 

44 

V 

44 

PS 

44  3  3  O 

O 

O 

o 

O 

3  3  0  3 

3 

3 

3 

3 

3 

U  3  fafa 

U 

U 

U 

ft) 

O 

3  P'S  44  fa 

u 

U 

u 

M 

fa 

3  3  3 

o 

o 

o 

0 

44 

3  6  U  ? 

o 

o 

o 

o 

3 

P'S  3  3  I 

3 

3 

3 

3 

O 

3  3  3 

o 

G 

G 

G 

fa 

B  U  3  O 

►n 

fa 

3  44  PS  fa 

•> 

•> 

» 

-  3 

fa 

3  CO  tO 

44 

44 

44 

44*0 

3 

u  6  O 

3 

3 

3  XB*- 

44 

44  3  3  > 

3 

3 

3  3 

3  — i 

fa 

CO  fa  3  fa 

fa 

fa 

fa  *3  fa 

sc 

U  3 

o  to  o 

O'— 

O  - 

u  X  44  H 

fa 

3  fa 

fa  -H 

fa  3 

tK 

P'S 

CM 

•> 

0Hpj 

-  3 

*  ' 

3 

fa 

»■ 

3 1) 

3 

* 

O 

0-3 

•>- 

O'— 

44 

6 

fa 

•O  44 

fa 

43 

3 

44 

3  3  3 

44 

44 

44 

P'S 

to 

3 

3  3  PS 

3 

3  - 

a 

•c 

3  E 

3 

•o  ►* 

6 

43 

•> 

fa 

3  3  3 

CO  6 

fa  44 

n 

44 

3  X 

K 

4*  Q  fa 

PB  -  to 

K  fa 

o 

3  3  X 

fa  O 

O  3 

233 

Ofa 

6 

0*0  3 

fa  3  3 

O  0 

3 

fa 

u 

3-— *0 

fa  to  3 

43  3  JC 

O  0 

3  44 

3 

o 

fa  — i— - 

0  6  « 

H  tO  44 

HSC  U 

o  u 

W 

U  — 1 

3 

X3 

O 

U  O  CM 

fa 

fa 

3  - 

3  -3 

to  X  X 

Xfafa 

3 

0  3- 

0  u  3 

30  3 

3  3 

* 

to 

44  3 

fa  3  tO 

fa  0 

O  0*0 

O 

fa  O 


O  fa  < 


4) 

44 


4)  fa  as 


43  43 
U  O 
fa  -H 

£  5 

44  JfH 
id  3—* 

to 

•  <h  -  e 

O  —~  o 
b  to  3  • 
0  6  0  6 
O  0  3 

*  «T  -«H 

° «°  s 

Q  P'S  Q  X 


O  44  0 
fa  fa  ft) 
O  343 
4J  O  fa  44 

3  fa  . 
4)  ft)  44  3 
-H>  3«H 
U  4) 

fa  fa  3  t! 
fa  O  O  3 


fat* 


^  ^fa  as  fa  3  fa  *H 
4)  3*0  3  O  3  44 

O  O'—  O  fa  O  CL 

O  BOhQ uo  W 

o  a  o 

3fa333U3«9 
4J  44  44  O  44  O  4J*0 
333fa3«3< 
fa  Ufa  4Jfa*Ofa 
fa  3  <  3 

„  _  „  ^  O  fa  O  O  U  O  4J 

O  3W  U  fafafafafa3fa3 
Oft)  fa  fa  Jj  fa  fa  fa  fa  fa  .3 

3  43  fa  -fa  44  fa  fa  fa  3  fa  O. 

4)  0  4J  fa  4J  O  fa  U  ftt  O  O  U  c< 
faacx4>fa4)3ft)*Jft)  r-- 
3  K  ft)  O'—  3- ft)  3-fa  3- 1 
faMGU^WQWZW * 


4)  44 


4)  O 
3U3 
CO  fa 


fa  3,3  tQjC 
44  fa  to?  6  ft) 

3  fa  fa 

ft)  O  -4J  «43 

faO*3  3  CM  } 

ft)  3 

fa  3  3  44 

fa  O  6  ft)  3 

fa  U-  ft)  3  Ik 

4)  G  043  •  fa 

O  44  O  ft)  fa 

0  3  3  _*d  3  3 

4)  4)  3  4)  O  44 
4)  fa  tO  4)  ft)  O  fa 

fa  O  tK  tO  3  3 

3  fa  X  0*0  a  ft) 

Pfifa  o  fa  4)  3  Q 

fa  fa  pfi  o  fa 

ft)  4)  fa  fa  fa  —  44 

fa  o  3 SC  a  o  toe 

fa  O  ft)  fa  43  6  ft) 

fa  G  fa  0.  6 

ft)  Q)  fa  3  ft)  «  -fa 
ft)  fa  -o  fa  fa  O  CM  no 

3*3  Q)  O  3  43— -  4) 
COC^COHC*5Cm-^CO 


44  U  3 
3  ft)  3 
*OOX 


fa  W  fa 
U  3  O 
4)  043 


41  O  ft) 
Gfa  « 


PS 

3  43 

3  >s 

fa 

fa  33 

SE  44 

OS  44  Us 

*0  3 

X  44  44 

fa  O 

i  3  3 

3 

43  a  3 

*  no 

0  0  3 

3  343 

to  O 

o 

OOO 

fa  * 

SC  3 

PS  3  O 

u  tKfa 

fa 

U  3 

— -  fa 

43  fa 

O  fa 

O  44  44 

44 

BOG 

to—. 

OOO 

ujoja 

fa  3 

3 

0 

6  to 

fa  O  fa 

3  u  ? 

U  OQ  ft- 

O 

3  3 

6 

43  fa 

3  3 

0  3  3 

fa 

Us  44  44 

?  3  fa 

fa  O  44 

fa  3  3 

fa  43  43 
w  3-3- 
3  0  0 

4)  fa  fa 
QUO 
as  at 
3X2E 

44 

XU  U 
43  fa  fa 
O-fafa 
O  fa  fa 
fa  o  u 
U  4)  4) 
a]  3-  3- 
SB  CO  IO 


4)  - 

fa  ft) 
as  fa 
06  3 

** 
fa  X 

2  3 

fa  4) 

OQ 


as  a 

to  to 


<< 


gft)  o 
30 
fa  as 
4)  to  4) 

0  3  fa 
as  3 
•S3 « 
u 

3*0  U 
O  3  fa 
O  3  fa 
fa 
•  3  o 
0  0  4) 

•  fa  3- 

Q  W  CO 


U  3 

fa  44 

fa  3  X 
fa  4)  fa 
4)  fa  fa 

o  u  » 
O  fa  3 
fa  4) 
fa  fa  44 

3  4)  3 
U  O  W 
fa  O 
fa  44 
fa  4)43 


44  ft) 

44  3(3 
3  w 
3  3 

fa  44  3 
043  > 
fa  tO  fa 
fa  fa  fa 
fa  fa  G 
3 

O  3  no 
0  0  3 
3  fa 
Ufa? 


3.44  UXM  44  U 
B  3  fa-*  3  3  __ 
W  (3  fa-H  0  0  M 


171 


Non-algal  Portion  of  Light  Extinction  Coefficient  LAMBDAO  -  1.00 
Linear  Algal  Self  Shading  Coefficient  LAMBDA1  -  0.00 
Nonlinear  Algal  Self  Shading  Coefficient  LAMBDA2  -  0.00 
Conversion  Factor  From  Algae  To  Chlorophyll,  ALPHAO  ■  0.00 
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SAMPLE  RIV1Q  DATA  SET  -  USER’S  MANUAL 

CLOUD  COVER  0.500  WIND  SPEED-  A. 00  DRY  BULB  77.00  WET  BULB  TEMP  -  60.00  ATMOSPHERIC  PRESSURE  -  28.88 
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APPENDIX  A:  LIST  OF  THE  HYDRODYNAMIC  CODE  RIV1H 
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************************************************************************ 

CE-QUAL-RIVl ,  VERSION  2  * 

RIV1H  CODE  -  HYDRODYNAMIC  MODEL  * 

JULY,  1995  * 

* 

CE-QUAL-RIV1H  was  originally  developed  by  Ohio  State  * 

University,  Bedford,  Sykes,  and  Libicki  * 

* 

and  later  modified  by  * 

M.  Dortch  and  T.  Schneider  * 

Water  Quality  and  Contaminant  Modeling  Branch  * 

Environmental  Laboratory  * 

USAE  Waterways  Experiment  Station  * 

Vicksburg,  Mississippi,  and  * 

D.  M.  Griffin,  Jr.  * 

Louisiana  Tech  University  * 

Ruston,  Louisiana  * 

* 

This  version  has  been  further  modified  by:  * 

* 

Tim  Wool  and  James  Martin  * 

AScI  Corporation  * 

Athens ,  Georgia  * 

* 

* 

*********************************************************************** 


PROGRAM  RIV1H 
REAL  KE1 

INTEGER  ORDER, FEEDS 
INCLUDE  ’RIV1H.CMN’ 

CHARACTER*6  XSCODE(INDl) 

CHARACTER  M0NTH*9 

INTEGER  SYEAR , SMONTH , SDAY , EYEAR , EMONTH , EDAY 
CHARACTER*30  RIVPATH 
CHARACTER* 12  FILES (30) ,  MESSFIL 
LOGICAL  CTRL 

COMMON/ABLOCK/  MTIME,  NS,  TITLE,  MNODE 

COMMON /XSDATA/  IXS,  HXS(MAXXS),  AXS(MAXXS),  BXS(MAXXS) 

DIMENSION  DXl(INDl) ,  Q(IND1),  A(IND1),  B(IND1),  I3(IND1), 
Cl(INDl),  C2(IND1),  C3 (IND1 ) ,  H(IND1),  EL(INDl), 
QL(INDl) ,  QLC(INDl),  QLT(INDl),  CNl(INDl), 

KEl(INDl),  R(IND3) ,  AA(IND2) ,  XC(INDl),  XM(INDl), 
RMILE(INDl) ,  C(IND3) ,  LIB(IBRAN) ,  ID(IBRAN) , 

NODE1 (IBRAN) ,  NNODE(IBRAN) ,  FEEDS (IBRAN) , 

ORDER ( IBRAN) ,  JNODE ( IBRAN ) ,  JBCU ( IBRAN ) ,  JBCD ( IBRAN) , 
BCU( IBRAN) ,  BCD (IBRAN) ,  JT ( IBRAN ) ,  COSP (IBRAN) , 

ITO (IBRAN),  IT1 (IBRAN),  IT2 (IBRAN),  T(4, IBRAN), 
IBC(IBRAN+1 ) ,  BC(IBRAN+1) ,  Z(IND1),  XMAN(INDl), 
DNDH(INDl) ,  AX(INDl),  IXSA(INDl) , IXSB(INDl) ,DBDH(IND1) 

DIMENSION  TPRNT(50) ,  TPR(50) 


A2 


c  ************************************************************************ 
c  200  update  intervals,  12  boundary  conditions 

q  ************************************************************************ 

CHARACTER* 1  BTU.BTD 
CHARACTERS  SNAME(IBRAN) 

CHARACTER*80  TITLE  , 

DATA  GR / 3 2 . 1 74 / , THETA/ 0 .551 , TOLER / 0 . 00 1 / , BETA / 1 . 0 / , IPRINT / 1 / 

IFIRST  -  0 
C 

OPEN (UNIT- 1 , FILE- ’ RIV1H . CTL ’ , IOSTAT-ISTAT , STATUS- ’ OLD ’ ) 

IF  (ISTAT  .NE.  0 ) THEN 
WRITE (6, 6000) 

6000  FORMAT (’  RIV1H  Control  File  Not  Found  ’) 

STOP 

ENDIF 

C 

READ  (1 ,5000)INFIL 
READ  ( 1 ,5000)LATFIL 
READ  (1 ,5000)XSFILE 
5000  FORMAT (15X,A1 2) 

DO  101  I  -  1,  12 

IF  (INFIL  (1:1)  .EQ.  ’ . ’)  GO  TO  102 

OUTFIL  (1:1)  =  INFIL  (1:1) 

HYDFIL  (1:1)  =  INFIL  (1:1) 

DMPFIL  (1:1)  =  INFIL  (1:1) 

ERRFIL  (1:1)  =  INFIL  (1:1) 

GO  TO  101 

102  CONTINUE 

OUTFIL  (1:1  +  3)  -  ’.OUT’ 

HYDFIL  (1:1  +  3)  -  ’.HYD’ 

DMPFIL  (1:1  +  3)  -  ’ .HDF’ 

ERRFIL  (1:1  +  3)  -  ’.ERR’ 

GO  TO  103 
101  CONTINUE 

103  CONTINUE 

C  ************************************************************************ 

C  Model  results  are  written  to  File  6  and  File  8. 

C  Diagnostics  are  written  to  File  7. 

C  ************************************************************************ 

OPEN  (UNIT-INPUT,  FILE-  INFIL  , STATUS- ’ OLD ’ ) 

OPEN  (UNIT-OUT,  FILE-  OUTFIL  , STATUS- ’ UNKNOWN ’ ) 

OPEN  (UNIT-HYD,  FILE-  HYDFIL  , FORM- ’UNFORMATTED’ .STATUS- ’UNKNOWN ’ ) 
OPEN  (UNIT-RIVDMP , FILE-  DMPFIL  , STATUS- ’ UNKNOWN ’ ) 

OPEN  (UNIT-NERRFIL,  FILE-  ERRFIL  , STATUS- ’ UNKNOWN ’ ) 

C  ************************************************************************ 

C  2)  Read  Input  File 

C  ************************************************************************ 

C  A)  Read  All  Global  Information 

q  ************************************************************************ 
C 

READ  ( INPUT  ,10)  TITLE 
10  FORMAT (A80) 

WRITE (OUT,*) TITLE 

READ ( INPUT , * )MNODE , SYEAR , SMONTH , SDAY , SHR , 

EYEAR , EMONTH , EDAY , EHOUR , NS 
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CALL  JULIAN  DATE ( STARTTIME , ENDTIME , SYEAR , SMONTH , SDAY , SHR , 
E YE AR , EMONTH , EDAY , EHOUR ) 

TNXTVD=  STARTTIME 
WRITE ( OUT , 300 ) MNODE , NS 

WRITE ( OUT , 3 1 0 )  SYEAR , SMONTH , SDAY , SHR , STARTTIME 
WRITE ( OUT , 3  20 )  EYEAR , EMONTH , EDAY , EHOUR , ENDTIME 


MNODE  *  IND1  *  Number  of  nodes  I  the  system 
MTIME  -  Number  of  timesteps 
NS  *  Number  of  river  segments 

************************************************************************ 


READ ( INPUT , * ) BETA , GR , RMILEO , THETA , TOLER , IQL , IXS 
WRITE ( OUT , 330 ) BETA , GR , IPRINT , RMILEO , THETA , TOLER 
Read  Print  Interval  Information 

************************************************************************ 


READ (INPUT,*)  NP 
WRITE (OUT, 340)  NP 

READ (INPUT,*)  (TPRNT(I) ,TPR(I) ,I=1,NP) 

WRITE (OUT, 350)  (TPRNT(I) ,TPR(I) ,1=1 ,NP) 

Initialize  Counters  for  Printing 

************************************************************************ 


TDUM  =  0. 

IPRINT  =  1 

TPRINT  =  TPRNT( IPRINT) 

Initialize  Lateral  Flows 

************************************************************************ 


DO  1=1, MNODE 
QL(I)  =  0. 

QLC(I)  =  0. 

QLT(I)  =  0. 

END  DO 

Determine  Name  and  Open  Lateral  Inflow  File 
*********************************************,********,***,****************> 


IF (IQL .  GE .  1 )OPEN  (UNIT=LAT , FILE*  LATFIL  , STATUS- ’ OLD ’ ) 


Determine  Name  and  Open  X-Section  File 
************************************************************************ 


IF  ( IXS . GE . 1 ) THEN 

C)  If  X-Section  Data  to  be  Read  From  a  File  (IXS  >=1), 

Determine  Files  and  Open 

************************************************************************ 

OPEN  (UNIT-FXSEC , FILE-  XSFILE  , STATUS- ’ OLD ’ ) 

ENDIF 

M2  =  0 


A4 


o o n rt  oooo  o n  oo  oo  ooo  oooooo 


D)  Within  the  "DO  1"  loop  below,  the  segment  and  initial  condition 

cards  are  read  for  each  segment,  boundary  conditions  are  established 
for  each  segment ,  and  each  segment  is  checked  to  see  if  it  is  a 


tributary. 

************************************************************************ 


DO  1  L«1,NS 

NODEl(L)  -  M2+1 

1)  Read  the  segment  card 

************************************************************************ 

READ ( INPUT , 2 ) ID ( L ) ,SNAME(L) ,NNODE(L) , FEEDS (L) ,JNODE(L) , 

BTU,BCU(L) ,BTD,BCD(L) ,COSP(L) 

2  FORMAT ( 12, A40 ,313 , 2(A1 ,F8 . 0) ,F8.0) 

WRITE (OUT, 360) ID (L) ,SNAME(L) ,NN0DE(L) , FEEDS (L) , JNODE(L) , 
BTU,BCU(L) ,BTD,BCD(L) ,C0SP(L) 

NNODE(L)  *  Number  of  Nodes  in  Segment  Number  1 
************************************************************************ 

2)  Parse  the  segment  card.  Establish  type  of  boundary  conditions. 
************************************************************************ 


LIB (L)=l 

IF(BTU.EQ. ’Q’)LIB(L)  =  4 
IF(BTD.EQ. ’Q’)LIB(L)  =  LIB(L)+1 
IF(BTD.EQ. ’R’)LIB(L)  -  LIB(L)+2 

3)  Check  to  see  if  this  segment  is  a  tributary 
************************************************************************ 

IF(JN0DE(L) .EQ.O)GO  TO  4 
COSP(L)  *  COS(0.0174533*COSP(L) ) 

IF(LIB(L) .LE.3)G0  TO  5 
LIB(L)  -  4 
GO  TO  4 

5  LIB(L)  -  1 

4  CONTINUE 

Ml  *  NODEl(L) 

M2  =  M1+NN0DE(L)-1 

4)  Read  initial  conditions  cards  -  ml  and  m2  correspond  to  the  node 
numbers  of  the  first  and  last  nodes  in  each  segment.  Nodes  are 
read  consecutively,  the  first  node  being  1  and  incremented  by  1 
until  the  last  node  is  read.  Nodes  are  read  one  segment  at  a 

.me . 

Ml  and  M2  are  updated  each  time  a  new  segment  is  read  by  the 
"do  1"  loop  above 

************************************************************************ 

DO  7  I*M1 ,M2 

READ (INPUT, 20 )DX1 (I) ,Q(I) ,H(I) ,QLC(I) ,EL(I) ,XSC0DE(I) ,C2(I) , 

C3(I) ,CN1 (I) ,KE1 (I) ,AX(I) ,DNDH(I) 

WRITE (OUT, 370 )DX1 (I) ,Q(I) ,H(I) ,QLC(I) ,EL(I) ,XSCODE(I) ,C2(I) , 

C3 (I) ,CN1 (I) ,KE1(I),AX(I) ,DNDH(I) 

7  CONTINUE 
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1  CONTINUE 

C  E)  Read  the  boundary  conditions  id  card  and  get  initial  time  varying 

data 

C 

****************************************************************************** 

DO  26  L-l.NS+l 
26  IBC(L)  -  0 

READ ( INPUT, *)IBC 

F)  Unscramble  references 

************************************************************************ 

DO  31  L*1 ,NS 
JBCU(L)  -  0 
JBCD(L)  =  0 
DO  31  M=1,NS 

IF(FEEDS(L) .EQ. ID (M) ) FEEDS (L)  =M 
31  CONTINUE 

NBC  -  0 
DO  29  L«1,NS+1 

IF(IBC(L) . EQ. 0)GO  TO  24 
NBC  “NBC+1 
DO  25  M=1 ,NS 

IF(IBC(L) .EQ.ID(M) )IBC(L)  =M 
IF(IBC(L) .EQ.-ID(M) )IBC(L)  -  -M 
25  CONTINUE 

29  CONTINUE 

24  CONTINUE 


G)  Construct  cross-reference  boundary  conditions  directory 
************************************************************************ 


IF(NBC.LE.O)GO  TO  33 

DO  32  L=1 ,NBC 

IF(IBC(L))28, 32,27 

28  JBCD(-IBC(L) )  =  L 

GO  TO  32 

27  JBCU(IBC(L) )  -  L 

32  CONTINUE 

33  CONTINUE 

H)  Establish  an  "upstream"  ordering  of  the  segments 
************************************************************************ 

DO  42  I«1,NS 
ORDER (I)  -  0 
IT1(I)  -  0 
ITO(I)  -  0 

Q  ***********************************“*********•**************************** 

IT2(I)  -  0 

IF (FEEDS (I) ,NE.0)G0  TO  42 
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ORDER ( 1 )  -  I 

42  CONTINUE 

L  -  1 
IT  -  0 

DO  44  I-l.NS 
M  *  ORDER(I) 

DO  44  J-l.NS 

IF(FEEDS(J) .NE.M)GO  TO  44 
L  -  L+l 
ORDER(L)  -  J 

IF(JNODE(J) .GT.O)GO  TO  39 
JBCU(M)  -  - (N0DE1 ( J)+NNODE( J) -1 ) 

IF (LIB (M) .LE.3)LIB(M)  *  LIB(M)+3 
GO  TO  38 

39  IT  =  IT+1 

IF(IT1(M) .EQ.O)ITl(M)  =  IT 
JT(IT)  -  JNODE(J) 

IT2(M)  -  IT 
ITO(J)  -  IT 

JBCD(J)  -  -(NODE1 (M)+JNODE( J)-l) 

38  IF(L.EQ.NS)GO  TO  43 

44  CONTINUE 

43  CONTINUE 

IF  ( NS .  GT .  2  ) CALL  BUBBLE ( ITO , IT 1 , IT2 , JT ,  NS ) 


I)  Read  in  the  surveyed  cross-section  data,  if  present 
************************************************************************ 

CALL  READXS (XSCODE ,  IXSA,  IXSB,  MNODE) 
************************************************************************ 


IXSA  and  IXSB  are  pointers  into  a  cross-section  table. 

If  they  are  both  positive,  then  Cl  serves  as  the  linear 
interpolation  factor  between  the  two  values  pointed  to. 
(remember,  for  this  scheme  to  work,  every  section  of  the 
cross-section  table  must  be  bounded  above  and  below  by 
hxs  *  0,  i.e.,  the  first  x-y  pair  for  a  x-section  must  be 
0,0).  If  only  IXSA  is  positive,  then  that  node  is  associated 
with  a  single  surveyed  cross-section  and  no  interpolation  is 


required. 

************************************************************************ 


The  "DO  67"  loop  carried  out  for  each  segment  independently 
first  sweep  downstream 

************************************************************************ 


DO  67  L  -  1,  NS 
HI  -  NODEl(L) 

M2  «  M1+NN0DE(L)-1 
IXS  -  0 

DO  68  I  *  Ml,  M2 

IF  (IXSA(I)  .GT.  0)  THEN 
D  -  DXl(I) 

IXS  -  IXSA  ( I ) 

ELSE 

C1(I)  -  D 
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D  -  D  +  DXl(I) 

ENDIF 

IXSA(I)  =  IXS 
68  CONTINUE 

C  *****  Then  sweep  upstream 

C  ************************************************************************ 


IXS  -  0 

DO  69  I  *  M2,  Ml,  -1 

IF  (IXSB(I)  .GT.  0)  THEN 
D  *  0. 

IXS  -  IXSB(I) 

ELSE  IF  (IXS  .GT.  0)  THEN 
D  «  D  +  DX1(I) 

C1(I)  *  Cl (I) / (Cl (I)  +  D) 

ENDIF 

IXSB(I)  -  IXS 
69  CONTINUE 

67  CONTINUE 

*****  .  END  "DO  67"  LOOP  . 

*****  Transform  initial  stages  into  initial  cross-sectional  areas 
*****  And  channel  top-widths .  C3<0  is  the  signal  that  an  ellipsoid 

*****  Cross-section  is  indicated. 

q  ************************************************************************ 
C  ************************************************************************ 


Manning’s  n,  originally  input  as  CN1(I)  is  redefined  as 
XMAN(I) .  CN1(I)  is  then  redefined  to  be  "CN1 (I)**2/2 . 2*gr"  for 
later  use.  Z(I)  is  set  equal  to  the  bottom  elevation, 
originally  input  as  EL(I) ,  EL (I)  is  then  redefined  as  the 
W.S.E.  *=  H(I)  +  EL (I),  where  H(I)  is  the  computed  water  depth. 
************************************************************************ 


DO  70  I«1,MN0DE 
XMAN(I)-CNKI) 

CN1(I)  -  CN1 (I)**2/2 . 2*GR 
Z(I)  -  EL(I) 

EL (I)  -  H(I)+EL(I) 

IF  ( (IXSA(I)  .EQ.  0  .AND.  IXSB(I)  .EQ.  0)  .OR. 
(IXSA(I)  .NE.  IXSB(I)  .AND. 

XSCODE(I)  .NE.  ’  ’))  THEN 

READ(XSCODE(I) , ’(F6.0) ’)  C1(I) 

IXSA(I)  *  0 
IXSB(I)  -  0 

ELSE  IF  (IXSA(I)  .EQ.  0)  THEN 
IXSA(I)  -  IXSB(I) 

IXSB(I)  -  0 

ELSEIF  (IXSA(I)  .EQ.  IXSB(I))  THEN 
IXSB(I)  -  0 
ENDIF 

IF  (IXSA(I)  -GT.  0)  THEN 
IF  ( IXSB (I )  .GT.  0)  THEN 

CALL  AFROMH2(H(I) ,A(I) ,B(I) ,DBDH(I) ,IXSA(I) , 
IXSB ( I ) ,C1 (I) ) 

ELSE 

CALL  AFR0MH(H(I) ,  A(I) ,  B(I),  DBDH(I) ,  IXSA(I)) 
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ENDIF 

ELSE 

q  ******************************  NOTE  ********************************* 

C  *  Transform  initial  stages  into  initial  cross-sectional  areas  and 

C  *  channel  top-widths.  C3<0  is  the  signal  that  an  ellipsoid  cross- 

r  ************************************************************************ 


IF(C3(I) .LT.0.0)  GO  TO  60 
IF(AINT(C3(I) ) .EQ.C3(I) )G0  TO  65 
13(1)  -  0 

A(I)-C1(I)*H(I)+C2(I)*H(I)**C3(I) 

B(I)-C1(I)+C2(I)*C3(I)*H(I)**(C3(I)-1.) 

DBDH(I)»C2(I)*C3(I)*(C3(I)-1.)*H(I)**(C3(I)- 


2.) 


GO  TO  70 


65  13(1)  =  C3(I) 

A(I)=C1 (I)*H(I)+C2(I)*H(I)**I3 (I) 
B(I)«C1(I)+C2(I)*C3(I)*H(I)**(I3(I)-1) 
DBDH(I)«C2(I)*C3(I)*(C3(I)-1 . )*H(I)**(I3 (I)-2 . ) 
GO  TO  70 


60  13(1)  -  -1 

B(I)=2.*C2(I)/C1(I)*SQRT((2.*C1(I)-H(I))*H(I)) 

A(I)=C1 (I)*C2(I)*ACOS (l.-H(I)/Cl(I))-B(I)*(Cl(I)-H(I))/2. 
DBDH(I)«4.*(C2(I)/C1(I))**2*(C1(I)-H(I))/B(I) 

ENDIF 


70  CONTINUE 

C  Calculate  river  mile  for  each  point  in  the  network 

C  ************************************************************************ 


DO  49  LL=1 ,NS 
L  =  ORDER (LL) 

Ml  -  N0DE1(L)+1 
M2  -  NN0DE(L)+Ml-2 
IF(LL.GT. 1)G0  TO  51 
RMILE(M2)  »  RMILE0 
GO  TO  52 

51  IF(JNODE(L) .GT.0)GO  TO  53 
LJ  -  FEEDS (L) 

MJ  -  NODEl(LJ) 

RMILE(M2)  -  RMILE(MJ) 

GO  TO  52 

53  RMILE(M2)  =0. 

52  CONTINUE 

DO  54  II=M1 ,M2 
I  -  M1+M2-II 

RMILE (1-1 )  -  RMILE(I)+DX1 (1-1) /5280. 

54  CONTINUE 
49  CONTINUE 

C  Write  out  initial  data  for  use  in  RIV1Q  Program  ^  ■  .^a.***** 

C  ************************************************************************ 


WRITE (HYD)MNODE , STARTTIME , ENDTIME , SYEAR , NS 
DO  1000  I  «1,NS 
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WRITE (HYD)JT(I) , ITO(I) , IT1 (I) ,IT2(I) ,ORDER(I) ,NNODE(I) , 

NODE 1(1), ID (I), JBCU ( I ) 

1000  CONTINUE 

DO  1010  I  =1 ,MN0DE 

WRITE(HYD)DX1(I) ,QLC(I) ,RMILE(I) 

1010  CONTINUE 

G2  -  GR/2. 

ITIME  -  0 

ELAPSE  -  STARTTIME 

CALL  GREGORIAN_DATE (ELAPSE , SYEAR , MONTH , IDAY , HOUR) 

CALL  TIME_VARYING_DATA  (ELAPSE, SYEAR, TNXTVD, NBC, DT,BC,IQL,QLT) 

DO  1031  I-l.MNODE 
IF(IQL . GE . 1 )THEN 

QL(I)  -  QLC(I)+QLT(I) 

ELSE 

QL(I)  =  QLC(I) 

END  IF 

1031  CONTINUE 


C  3)  BEGIN  TIME  MARCH  LOOP 

C  IT  ENDS  WITH  GO  TO  80  STATEMENT  AT  END  OF  LOOP 

Q  ************************************************************************ 

80  CONTINUE 

************************************************************************ 
The  tolerance  test  within  a  timestep  is  carried  out  by 
first  computing  the  "Euclidian  Norm"  for  the  flow  and 
area  vectors  for  the  entire  system.  This  value  is  multiplied 
by  the  "tol"  input  parameter  and  divided  by  the  number  of 
nodes  in  the  system.  The  resulting  parameters  are  called 
rmsq  and  rmsa.  The  largest  departure  for  every  q  and  a  in 
the  system,  within  a  timestep,  must  be  less  than  the  value 
of  the  corresponding  tolerance  parameter.  If  not,  the  code’ 
cycles  thru  another  iteration. 

************************************************************************ 


A)  Calculate  root  mean  square  Q  St  H  for  tolerance  test 
************************************************************************ 

RMSQ  -  0. 

RMSA  -  0. 

DO  66  1*1 ,MN0DE 

RMSQ  *  RMSQ+Q(I)*Q(I) 

RMSA  *  RMSA+A(I)*A(I) 

66  CONTINUE 

RMSQ  *  TOLER*SQRT (RMSQ) /FLOAT (mnode) 

RMSA  -  TOLER*SQRT (RMSA) /FLOAT (mnode) 


B)  Write  out  the  previous  timestep ’s  data 
************************************************************************ 
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IF (TDUM . GE . TPRINT . OR . TDUM.EQ . 0 . )  THEN 
WRITE (OUT, 110) TITLE 
WRITE ( OUT, 1 25 )DT 
DO  81  L«1,NS 

WRITE(0UT, 115)L 

WRITE (OUT, 1 20 )SYEAR, MONTH, IDAY, HOUR, ITIME,ID(L) , SNAME(L) 
WRITE(OUT, 126)BCU(L) ,  BCD(L) 

WRITE (OUT, 130) 

M  *  NODEl(L)-l 
M2  *  NNODE(L) 

WRITE (OUT, 140) (I,RMILE(I+M) ,Q(I+M) ,A(I+M) ,B(I+M) ,H(I+M) , 
EL(I+M) ,XMAN(I+M) ,1*1 , M2) 

81  CONTINUE 

CALL  RIVDU (MNODE , DX 1 ( 1 ) , RMILE ( 1 ) , Q ( 1 ) , QLC ( 1 ) , QLT ( 1 ) 
,A(1),B(1),EL(1) ,XMAN(1 ) ) 


TDUM  -  0. 

END  IF 

TDUM  *  TDUM  +  DT/3600.  +0.00001 

C)  Write  to  output  file  for  RIV1Q  Program 
************************************************************************ 


WRITE (HYD)DT 

DO  1020  1=1,  MNODE 

WRITE (HYD)Q(I) ,QLT(I) ,A(I) ,B(I) ,EL(I) 

1020  CONTINUE 

D)  Check  Courant  No.  If  greater  than  1.0,  print  to  error  file. 
Courant  No.  Greater  than  1.0  will  cause  the  RIV1Q  code  to 
become  unstable 

************************************************************************ 


MNM1  =  MNODE  -  1 
DO  683  IK  =  2,  MNM1 

COURANT  =  (  Q(IK)  *  DT  )  /  (  DXl(IK)  *  A(IK)  ) 

IF  (  COURANT  .GT.  .99  )  WRITE (NERRFIL, 684)  IK,  ELAPSE,  COURANT 

683  CONTINUE 

684  FORMAT  (10X,  ’Node  ’,  13,  10X,  ’Elapse  =  ’,  F10.6, 

.  5X,  ’Courant  No  =  ’,  F6.2  ) 

ITIME-ITIME+1 

E)  Update  times  and  stop  if  time  is  greater  than  the  endtime 
************************************************************************ 


ELAPSE=ELAPSE+DT / 86400 . 

IF ( ELAPSE . GT . TPR ( IPRINT ) . AND . NP . GT . 1 ) THEN 
IPRINT-IPRINT+1 
TPRINT*TPRNT ( IPRINT) 

END  IF 

IF ( ELAPSE . GE . ENDTIME )  STOP 

CALL  GREGORIAN_DATE (ELAPSE , SYEAR .MONTH , IDAY , HOUR) 
C  F)  Update  time  varying  data 


All 
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Q  ************************************************************************ 


IF  ( ELAPSE. GE.TNXTVD) 

CALL  TIME_VARYING_DATA  (ELAPSE , SYEAR , TNXTVD , NBC, DT,BC,IQL,QLT) 

DO  1030  1=1 ,MN0DE 
IF(IQL.GE. 1)THEN 

QL(I)  *  QLC(I)+QLT(I) 

ELSE 

QL(I)  =  QLC(I) 

END  IF 

1030  CONTINUE 

************************************************************************ 
Variable  Manning’s  n  Values: 

Manning’s  n  is  allowed  to  vary  in  accordance  with  a  linear 
relationship  between  n  and  the  DEPTH  H  in  the  X-section. 

AX(I)  is  the  value  of  n  when  the  DEPTH  is  0.0.  The  rate  of 
change  of  n  with  DEPTH,  DNDH,  is  the  coefficient  of  H.  The 
user  is  alerted  if  n  drops  below  zero  and  n  is  reset  to  0.01. 
WARNING!  The  basic  equations  have  been  modified  to  allow  only  for 
linear  variation  of  n  with  depth.  If  the  user  contemplates  other 
relationships,  the  equations  must  be  modified  accordingly. 
************************************************************************ 


DO  165  1=1 ,MN0DE 

IF(AX(I) . NE . 0 . 0 . AND . DNDH ( I ) . NE . 0 . 0 ) THEN 
XMAN(I)=AX(I)  -  DNDH ( I ) *H ( I ) 

IF(XMAN(I) .LE.0.01)THEN 
WRITE (NERRFIL, 177)1 

177  F0RMAT(  ’Value  for  XMAN  at  Node  I  =\I9, 

.  ’is  <  0.01.  it  has  been  RESET  to  0.01’) 

XMAN(I)=0 . 01 
END  IF 

CN1 ( I ) =XMAN ( I ) **2*GR/  2 . 2 
END  IF 
165  CONTINUE 

G)  CALLING  SUBROUTINES 

************************************************************************ 

DO  400  LL=1 ,NS 

L  =  ORDER(NS-LL+l ) 

M  =  NODEl(L) 

Ml  =  NNODE(L) 

M2  =  2*M-1 

IF( JBCU(L) )401 ,402,403 

401  JJ  =  -JBCU(L) 

BCU(L)  =  Q( JJ) 

GO  TO  402 

403  JJ  =  JBCU(L) 

BCU(L)  =  BC(JJ) 

402  IF(JBCD(L) >404,405, 406 

404  JJ  =  -JBCD(L) 

BCD(L)  =  EL ( J J ) -EL (M+Ml - 1 ) +H (M+Ml - 1 ) 

GO  TO  405 

406  JJ  =  JBCD(L) 
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BCD(L)  -  BC(JJ) 

405  CALL  CALC (THETA, DT,DX1(M) ,Q(M) ,A(M) ,B(M) ,I3(M) ,C1(M) l,C2(M) I, 

C3(M) ,H(M) ,EL(M) ,QL(M) ,G2,CN1(M) ,KE1(M) ,XC(M) ,XM(M) , 

C(M2) ,R(H2) ,AA,LIB(L) ,BCU(L) ,BCD(L) ,C0SP(L) ,BETA, 

ITO(L) , IT1(L) ,IT2(L) , JT,T,M1 , 10*(M1-1) ,2*M1 ,NS, 

;  ID(L) ,XMAN(M) ,DNDH(M) ,IXSA(M) ,IXSB(M) ,DBDH(M) ) 

400  CONTINUE 

The  "DO  180"  loop  iterates  to  find  a  set  of  qs  and  as  which  will 
satisfy  the  basic  equations  within  the  tolerance  specified  by  the 
tolerance  parameter 

************************************************************************ 

DO  180  K-l,  50 
Sweep  upstream 

************************************************************************ 

DO  407  LL-l.NS 
L  -  ORDER (LL) 

M  *  NODEl(L) 

Ml  *  NNODE(L) 

M2  =  2*M-1 

CALL  NEW(R(M2) ,Q(M) ,A(M) ,B(M) ,H(M) ,EL(M) ,I3(M) ,C1(M) ,C2(M) , 

C3(M) ,C(M2),IT0(L) ,IT1(L) ,IT2(L) , JT,T,M1 , 2*M1 ,NS , 

Z(M) ,IXSA(M) ,IXSB(M) ,DBDH(M) ) 

407  CONTINUE 

H)  Check  each  of  the  computed  departures  for  Q  and  A.  If  any  is  larger 
than  the  computed  tolerance  for  each,  go  for  another  iteration, 
a  Maximum  of  50 . 

************************************************************************ 

DO  160  I-l.MNODE 

IF(ABS(R(2*I-1 ) ) .GT.RMSQ.0R.ABS(R(2*I) ) .GT.RMSA)G0  TO  170 
160  CONTINUE 


At  this  point,  flows  and  water  depths  for  a  single  timestep  have 
been  computed.  Computations  for  the  next  timestep  are  begun  at 
statement  80  above ,  where  the  time  march  begins . 
************************************************************************ 


GO  TO  80 
170  CONTINUE 

To  examine  node  at  which  non- convergence  is  occurring,  the 
following  line  has  been  added  to  the  code  as  a  diagnostic. 

a*************?********************************************************* 

IF(R.GE.25)THEN 

WRITE (NERRFIL,*)  ’Z(I)=  \Z(I),’  ELAPSE*  ’ , ELAPSE, 

'  TOLER  TST’ 

WRITE (NERRFIL,*)  ’ABS(R(2*I-1) )=  ’ ,ABS (R(2*I-1 ) ) , 

*  RMSQ*  \RMSQ 

WRITE (NERRFIL,*)  ’ABS(R(2*I)*  ’ ,ABS(R(2*I) ) , ’  RMSA-  ’ ,RMSA 
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END  IF 


This  loop  is  identical  to  the  "DO  165"  loop  above.  It  recomputes 
Manning’s  n  and  CN1(I)  using  new  H(I)  values,  within  a  timestep. 
************************************************************************ 


DO  166  I-l.MNODE 

IF(AX(I) . NE . 0 . 0 . AND . DNDH ( I ) . NE . 0 . 0 ) THEN 
XMAN(I)-AX(I)  -  DNDH(I)*H(I) 
IF(XMAN(I) .LE. 0.01) THEN 
WRITE (NERRFIL, 177)1 
XMAN(I)=0.01 
END  IF 

CNl(I)=XMAN(I)**2*GR/2.2 
END  IF 

166  CONTINUE 


The  "DO  408"  loop  resets  boundary  conditions,  recomputes  Manning’s  n 
for  corrected  flows  and  solves  the  system  of  equations  for 
new  departures. 

************************************************************************ 


DO  408  LL=1 ,NS 

L  =  ORDER ( NS -LL+1) 

M  *  NODEl(L) 

Ml  -  NNODE(L) 

M2  -  2*M-1 

IF(JBCU(L) . GE.OJGO  TO  409 
JJ  *  -JBCU(L) 

BCU(L)  =  Q( JJ) 

409  IF(JBCD(L) .GE.0)GO  TO  410 
JJ  -  -JBCD(L) 

BCD(L)  *  EL(JJ)-EL(M+M1-1)+H(M+M1-1) 

410  CALL  ITER ( THETA, DT,DX1 (M) ,Q(M) ,A(M) ,B(M) ,I3(M) ,C1 (M) ,C2(M) , 

C3(M) ,H(M) ,EL(M) ,QL(M) ,G2,CN1(M) ,KE1(M) ,XC(M) ,XM(M)  , 
C(M2) ,R(M2) ,AA,LIB(L) ,BCU(L) ,BCD(L) ,COSP(L) , BETA , 
IT0(L) , IT1 (L) , IT2 (L) , JT,T,M1 , 10*(M1-1 ) , 2*M1 ,NS,ID(L) , 
XMAN(M) ,DNDH(M) ,IXSA(M) ,IXSB(M) ,DBDH(M) ) 

408  CONTINUE 

180  CONTINUE 

WRITE (OUT, 190) 

STOP  ’Failed  to  Converge’ 

200  CONTINUE 
STOP 

20  FORMAT ( 5F6. 0, A6 ,6F6 .0) 

110  FORMAT ( 1H1 , / / , 1X,A80) 

115  FORMAT (/, ’  OUTPUT  FOR  SEGMENT  NO.  ’,15) 

120  FORMAT (IX, ’Time:  Year  -’ ,14 , ’ , Month-  ’ ,A9 , ’ ,Day ’ ,14 , ’ .Hour  -’ , 
F8.4,  ’  Step*  ’,15,’  Segment- ’, 13 , ’  ’ ,A40) 

125  FORMAT (IX,  ’TIME  STEP  (sec)  -  \F8.2) 

126  FORMAT (  ’  Upstream  Boundary  ’,F8.3, 

’  Downstream  Boundary  *’,F8.3) 

130  FORMAT(lx,T7, ’River’ ,7X, ’  Flow  ’,7X,’  Area  ’,7X,’  Width  ’, 
7X, ’  Depth  ’ , 7X , ’  WSEL’ , 10X, ’Mannings  n’ ,/ , 

’  ’ ,T8 , ’Mile ’ , 7X, ’  (cfs)  ’,7X,’  (sq  ft)’,7X,’  (Feet)  ’, 
7X,  ’  (Feet)  \7X,’  (Feet)  ’) 
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c 


140  F0RMAT(lx,I2,F9.2,6F15.3) 

190  FORMAT ( ’ The  Iteration  has  FAILED  to  CONVERGE  in  50  steps.  Run’ 

.  ’  Aborted ’ ) 

300  FORMAT (IX, ’NUMBER  OF  NODES  -  ’,15,’  NUMBER  OF  SEGMENTS  «  ’,15) 
310  FORMAT ( /  ,  ’  STARTIME:  YEAR  ,14,  ’  ,MONTH=  ’  ,  14  ,  ’  , DAY ’  ,  14 ,  ’  , HOUR 
F8.4,  ’  JULIAN  DAY  =  ’,F8.3) 

320  FORMAT ( ’  END  TIME:  YEAR  -’ ,14, ’ .MONTH*  ’ ,14, ’ ,DAY’ ,14, ’ ,HOUR  * 
F8.4,  ’  JULIAN  DAY  -  ’,F8.3) 

330  FORMAT ( / , 

.’  BETA  -  \F8.2 ,/, 

.’  GR  -  ’ ,F8.2, / , 

IPRINT  -  ’,18,/, 

.’  RMILEO  -  \F8.2,/, 

. ’  THETA  -  ’,F8.2 ,/, 

.’  TOLER  -  \F8.4) 

340  FORMAT (/,’  NUMBER  OF  PRINT  UPDATES ’,15) 

350  FORMAT (’  PRINT  INTERVAL  -  \F8.3,’  PRINT  TIME  ’,F8.3) 

360  FORMAT ( / ,I2,A40 ,313 , 2(A1 ,F8 .0) ,F8.0) 

370  FORMAT( 1X.5F10 .3 ,A6 .6F10.3) 


0  ************************************************************************ 
C  SUBROUTINE  AFROMH 

0  ************************************************************************ 


SUBROUTINE  AFROMH (H,  A,  B,  DBDH,  IPC) 


Given  the  area  and  width  vs.  depth  table,  and  the  current  depth, 
Calculate  the  area,  channel  top  width,  and  derivative  of  the  top  width 
Using  linear  table  search  (linear  is  not  inefficient  because  you  keep 
An  updatable  pointer  into  the  table)  and  linear  interpolation. 

The  limit  switches  on  the  table  search  (top  and  bottom)  are  hxs  *  0 
************************************************************************ 


PARAMETER (MAXXS-1 000 ) 

COMMON / XSDATA / IXS , HXS (MAXXS ) , AXS (MAXXS ) , BXS (MAXXS) 

IF  (H  .LE.  0.)  STOP  ’AFROMH:  Zero  or  Negative  Depth  of  Flow’ 

DO  10  I  =  IPC,  MAXXS 
IF  (HXS (1+1 )  .LE.  0) 

STOP  ’AFROMH:  River  has  Overflowed  its  Banks!’ 

10  IF  (H  .LE.  HXS(I+1) )  GOTO  11 

11  IPC  -  I 

DO  20  I  -  IPC,  1,  -1 

20  IF  (H  .GT.  HXS ( I ) )  GOTO  21 

21  IPC  *  I 

DBDH  -  (BXS(I+1 )  -  BXS(I) ) / (HXS(I+1)  -  HXS(I)) 

DH  -  H  -  HXS(I) 

B  «  BXS (I)  +  DBDH*DH 

A  «  AXS (I)  +  (BXS (I)  +  DBDH*DH/2 . )*DH 

RETURN 

END 

0  ************************************************************************ 
C  SUBROUTINE  AFROMH2 

0  ************************************************************************ 
SUBROUTINE  AFROMH2(H,  A,  B,  DBDH,  IA,  IB,  E) 
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c 

C  Given  the  area  and  width  vs.  depth  table,  and  the  current  depth, 

C  calculate  the  area,  channel  top  width,  and  derivative  of  the  top  width 
C  for  "blended"  cross-sections  using  linear  table  search 
C  (linear  is  not  inefficient  because  you  keep  an  updatable  pointer 
C  into  the  table)  and  inverse  linear  interpolation,  the  limit  switches 
C  on  the  table  search  (top  and  bottom)  are  hxs  =  0 

Q  ******,*,*****Vlr******,*****>*******************,****>***************,*,*****,**‘** 

PARAMETER (MAXXS* 1000) 


COMMON /XSDATA/IXS, HXS (MAXXS) ,AXS(MAXXS) ,BXS(MAXXS) 
LOGICAL  RECALC 


IF  (H 

.LE.  0) 

STOP 

’River  has  DRIED  up. ’ 

EC  -  1 

.  -  E 

10 

IF  (HXS (IA+1 ) 
IF  (HXS (IA+1) 
IA  ■  IA  +  1 
GOTO  10 

.LE. 

.GT. 

0 ) STOP  ’River  has  OVERFLOWED 
H)  GOTO  11 

its  banks ’ 

11 

IF  (HXS (IB+1) 
IF  (HXS (IB+1) 

.LE. 

.GT. 

0 ) STOP  ’River  has  OVERFLOWED 
H)  GOTO  12 

its  banks ’ 

IB  =  IB  +  1 
GOTO  11 

C 

C  At  this  point,  both  heights  are  below  the  target.  Now  use  the  formula 

C  to  get  the  exact  height  and  area.  If  either  of  the  heights  puts  you 

C  outside  of  the  interval,  then  adjust  the  interval. 

Q  ************************************************************************ 

12  CONTINUE 

BOA  -  BXS(IA) 

BOB  -  BXS(IB) 

HOA  -  HXS(IA) 

HOB  -  HXS (IB) 

DBDHA  *  (BXS(IA+1 )  -  BOA) / (HXS(IA+1)  -  HOA) 

DBDHB  =  (BXS(IB+1)  -  BOB) / (HXS (IB+1 )  -  HOB) 

HR  *  HOB  -  H/E 
ER  *  EC/E 

AQ2  *  DBDHA  -  ER*ER*DBDHB 

BQ  -  BOA  -  DBDHA*H0A  +  ER*(B0B  -  DBDHB *HR) 

CQM2  =  -2 . *(AXS (IA)  -  AXS(IB)  +  H0A*(-B0A  +DBDHA*H0A/2) 

-HR* (-BOB  +  DBDHB*HR/2) ) 

Q  -  SQRT(BQ*BQ  +  CQM2*AQ2) 

IF  (SIGN(BQ,  Q)  .EQ.  BQ)  THEN 
HA  -  CQM2/ (BQ  +  Q) 

HB  -  (H  -  EC*HA)/E 

IF  (HA  .GT.  0  .AND.  HB  .GT.  0)  GOTO  13 
HA  -  (-BQ  -  Q)/AQ2 
HB  *  (H  -  EC*HA)/E 
ELSE 

HA  -  CQM2/ (BQ  -  Q) 

HB  -  (H  -  EC*HA)/E 

IF  (HA  .GT.  0  .AND.  HB  .GT.  0)  GOTO  13 
HA  -  (-BQ  +  Q)/AQ2 
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HB  *  (H  -  EC*HA)/E 
ENDIF 

RECALC  =  .FALSE. 


IF  (HA  .GT.  HXS(IA+1) )  THEN 
RECALC  *  .TRUE. 

14  IA  -  IA  +  1  ,  ,  , 

IF  (HXSCLA+l)  .LE.  0)STOP  ’River  has  OVERFLOWED  its  banks’ 

IF  (HA  .GT.  HXS(IA+1) )  GOTO  14 

ELSEIF  (HA  .LT.  HXS(IA))  THEN 
RECALC  *  .TRUE. 

15  IA  *  IA  -  1 

IF  (HA  .LT.  HXS(IA) )  GOTO  15 
ENDIF 

IF  (HB  .GT.  HXS(IB+1) )  THEN 
RECALC  *  .TRUE. 

16  IB  *  IB  +  1  ,  ,  , 

IF  (HXS(IB+1 )  .LE.  0)STOP  ’River  has  OVERFLOWED  its  banks 
IF  (HB  .GT.  HXS(IB+1) )  GOTO  16 

ELSEIF  (HB  .LT.  HXS(IB))  THEN 
RECALC  *=  .TRUE. 

17  IB  -  IB  -  1 

IF  (HB  .LT.  HXS(IB) )  GO  TO  17 
ENDIF 

IF  (RECALC)  GOTO  12 
DBDH  *  EC*DBDHA  +  E*DBDHB 

B  -  EC* (BOA  +  DBDHA*(HA  -  HOA) )  +  E*(B0B  +  DBDHB* ( -ER*HA  -  HR)) 

A  -  AXS(IA)  +  (BOA  +  DBDHA*(HA  -  H0A)/2)*(HA  -  HOA) 

RETURN 

END 

C  ************************************************************************ 

c  SUBROUTINE  BUBBLE 

C  ************************************************************************ 
SUBROUTINE  BUBBLE ( ITO, IT1 ,IT2,JT, NS) 

DIMENSION  ITO(NS) ,IT1 (NS) ,IT2(NS) , JT(NS) 

DO  1  L-l.NS 

IF(IT2(L) .LE . IT1 (L) )GO  TO  1 
LAST  -  IT2(L) 

2  LIMIT  -  LAST-1 
LAST  -  IT1(L) 

Ml  -  LAST 

DO  3  I-Ml .LIMIT 

IF( JT(I) .LE. JT(I+1) )GO  TO  3 
ITEMP  =  JT(I) 

JT(I)  -  JT(I+1 ) 

JT(I+1)  -  ITEMP 
LAST  -  I 
DO  5  M-l.NS 

IF(IT0(M) .NE.I)GO  TO  6 
ITO(M)  -  1+1 
GO  TO  5 

6  IF (ITO (M) .EQ.I+1)IT0(M)  =  I 

5  CONTINUE 

3  CONTINUE 
IF(LAST.GT.M1 )GO  TO  2 

1  CONTINUE 
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RETURN 

END 

Q  ************************************************************************ 

c  SUBROUTINE  CALC 

0  ************************************************************************ 
C 

c 

C  PURPOSE 

C  to  calculate  the  residuals  from  the  governing  equations 

C  to  calculate  the  partial  derivatives  of  the  governing  equation 

C  to  set  up  a  vector  of  the  residuals 

C  to  set  up  a  matrix  of  the  partial  derivatives 

C  to  solve  this  system  of  equations  for  the  differences  between 

C  the  values  of  q  and  a  in  two  consecutive  iterations 

C  DESCRIPTION  OF  PARAMETERS 

C  XC  the  j  terms  from  the  continuity  equation 

C  XM  the  j  terms  from  the  momentum  equation 

C  R1  the  residuals  from  the  continuity  equation 

C  R2  the  residuals  from  the  momentum  equation 

C  R  -  a  collection  of  all  of  the  residuals  in  the  proper 

C  order  for  the  vector 

C  F  -  the  continuity  equation 

C  G  the  momentum  equation 

C  DFQ  -  partial  differential  of  f  with  respect  to  q(i) 

C  DFA  -  partial  differential  of  f  with  respect  to  a(i) 

C  DFQ1  -  partial  differential  of  f  with  respect  to  q(i+l) 

C  DFA1  -  partial  differential  of  f  with  respect  to  a(i+l) 

C  DGQ  -  partial  differential  of  g  with  respect  to  q(i) 

C  DGA  -  partial  differential  of  g  with  respect  to  a(i) 

C  DGQ1  -  partial  differential  of  g  with  respect  to  q(i+l) 

C  DGA1  -  partial  differential  of  g  with  respect  to  a(i+l) 

C  AA  -  a  collection  of  all  of  the  partial  derivatives  in 

C  the  proper  order  for  the  banded  matrix 

C  DNDH  -  partial  of  n  with  respect  to  h 

SUBROUTINE  CALC ( THETA, DT,DX I ,Q,A,B,I3,C1 ,C2,C3,H,EL,QL,G2,CN1 ,KE1 , 

. XC , XM , C , R , AA , LIB , BCU , BCD , COSP , BETA , ITO , IT1 , IT2 , JT , T , IND1 , IND2 , 

. IND3 , NS , ID , XMAN , DNDH , IXSA , IXSB , DBDH) 

REAL  KE1 

LOGICAL  FLIP1.FLIP2 

DIMENSION  Q(IND1) ,A(IND1) ,B(IND1) ,H(IND1) ,C1 (IND1) ,C2(IND1) , 

. C3 (IND1 ) ,EL(IND1 ) ,QL(INDI) ,CN1 (IND1 ) ,KE1 (IND1 ) ,R(IND3) ,AA(IND2) , 
.XC(INDl) ,XM(IND1) .DXl(INDl) ,C(IND3) ,I3(IND1) , JT(NS) ,T(4,NS) , 

.ID (NS) ,XMAN(IND1) ,DNDH(IND1) , IXSA(INDl) .IXSB(INDl) .DBDH(INDl) 

C 

C  The  previous  timestep  components  of  the  governing  equations 
0  ************************************************************************ 

MP-IND1-1 
QO  -  Q(l) 

AO  -  A( 1 ) 

PO  -  (B(1)/A0)**(4./3.)*ABS(Q0)/A0 
D1  «  (1 . -THETA >*DT 

DO  10  I'l ,MP 

D2  -  D1/DX1(I)*2. 

Q1  -  Q(I+1) 

A1  -  A(I+1) 
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PI  *  (B(I+1)/A1)**(4./3.)*ABS(Q1)/A1 
DE  -  EL(I+1)-EL(I) 

XC(I)*  -A0-A1+D2*(Q1-Q0) -D1*(QL(I)+QL(I+1 ) ) 

XM(I)“  -Q0-Q1+D2*(BETA*(Q1*Q1/A1-Q0*Q0/A0)+G2*(A1+A0)*DE) 
+D1*(CN1 (I)*P0*Q0  +  (CN1 (I+1)*P1*Q1 ) ) 

IF(KE1(I) .GT.0)XM(I)=XM(I)+D2/8.*(A0+A1 )*KE1 (I)*(Q1*Q1 / (A1*A1 ) 

+Q0*Q0 / ( A0*A0 ) ) 

PO  -  PI 
QO  -  Q1 
AO  -  A1 
10  CONTINUE 

XC(INDl)  -  D1*Q1 
XM(INDl)  -  D1*Q1*Q1/A1*C0SP 


This  is  the  entry  point  for  all  succeeding  iterations  of  the 
Newton-Raphson  procedure 

************************************************************************ 


ENTRY  ITER ( THETA ,  DT , DX 1 ,Q,A,B ,13 ,C1 ,C2 ,C3 ,H,EL ,QL,G2 ,CN1 ,KE1,XC, 

. XM , C , R , AA , LIB , BCU , BCD , COSP , BETA , ITO , IT1 , IT2 , JT , T , IND 1 , IND2 , IND3 , 

. NS , ID , XMAN , DNDH , IXSA , IXSB , DBDH ) 

Upstream  boundary  conditions 

************************************************************************ 


R(l)  -  0. 

IF(LIB.GT.3)G0  TO  30 
EL( 1 )  =  EL(1)-H(1)+BCU 
H ( 1 }  *  BCU 

IF  ( IXSA ( 1 )  .GT.  0)  THEN 

CALL  AFROMH(H(l)  ,  Ad),  B(l),  DBDH  ( 1 )  ,  IXSA(l)) 

ELSE 

IF (13(1)) 20, 14, 15 

14  A ( 1 ) “C 1 ( 1 ) *H ( 1 ) +C2 ( 1 ) *H ( 1 ) **C3 ( 1 ) 
B(1)«C1(1)+C2(1)*C3(1)*H(1)**(C3(1)-1.) 
DBDH(1)*C2(1)*C3(1)*(C3(1)-1 . )*H(l)**(C3(l)-2. ) 

GO  TO  40 

15  A(1)-C1(1)*H(1)+C2(1)*H(1)**I3(1) 

B ( 1 ) =C 1 ( 1 ) +C2 ( 1 ) *C3 ( 1 ) *H ( 1 ) ** ( 13 ( 1 ) - 1 ) 
DBDH(1)~C2(1)*C3(1)*(C3(1)-1 . )*H(l)**(I3(l)-2) 

GO  TO  40 

20  B( 1 )=2 .*C2( 1 ) /Cl (1 )*SQRT ( ( 2 . *C 1 < 1 >  — H ( 1 ) ) *H ( 1 ) ) 

A( 1 )*C1 (1 )*C2 ( 1 )*ACOS(l . — H (1) /Cl(l) )— B(1)*(C1 (1) — H ( 1 ) ) / 2 . 
DBDH(1)=4.*(C2(1)/C1(1))**2*(C1(1)-H(1))/B(1) 

GO  TO  40 

ENDIF 

GO  TO  40 

30  Q( 1 )“BCU 
40  CONTINUE 


Downstream  boundary  conditions 

************************************************************************ 
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GO  T0(43,60,70,43,60,70) ,LIB 


43  EL(INDl)  =  EL ( IND 1 ) -H ( IND1 ) +BCD 
H(IND1 )=BCD 

AA(IND2)  =  0. 

R ( IND3 )  =  0. 

IF  (IXSA(IND1 )  .GT.  0)  THEN 

CALL  AFR0MH(H(IND1) ,  A(IND1),  B(IND1),  DBDH(INDl),  IXSA(INDl)) 
ELSE 

IF (13 (IND1) >50,44,45 

44  A(IND1 )*C1 (IND1 )*H(IND1 )+C2(INDl )*H(IND1 )**C3(IND1 ) 

B ( IND 1 ) «C 1 (IND 1 ) +C2 (IND 1 ) *C3 (IND 1 ) *H ( IND 1 ) ** ( C3 (IND 1 ) - 1 . ) 
DBDH(IND1)»C2(IND1)*C3(IND1)*(C3(IND1)-1. )*H(IND1)** 
(C3(INDl)-2. ) 

GO  TO  51 

45  A(IND1 )-Cl (IND1 )*H(IND1 )+C2(INDl)*H(INDl )**I3(IND1 ) 

B(IND1 )*C1 (IND1 )+C2(INDl )*C3 (IND1 )*H(IND1 )**(I3(IND1 ) -1 ) 

DBDH (IND1 ) *C 2 ( IND  1 ) *C3 (IND  1 ) * ( C3 (IND  1 ) - 1 . ) *H (IND  1 ) ** (13 (IND  1 ) 

-2) 

GO  TO  51 

50  B ( IND1 ) =2 . *C2 ( IND1 ) /Cl ( IND1 ) *H ( IND1 ) *SQRT ( 2 . *C1 ( IND1 ) /H ( IND1 ) 

-1.) 

A ( IND 1 ) -C 1 (IND 1 ) *C2 (IND 1 ) *ACOS ( 1 . -H (IND 1 ) / C 1 ( IND 1 ) ) 

-B (IND1 )*(C1 (IND1 )-H(INDl ) ) / 2 . 

DBDH(IND1 )=4 . *(C2 (IND1 ) /Cl (IND1 ) )**2*(C1 (IND1 ) -H(IND1 ) ) /B(IND1 ) 
END  IF 

51  C(IND3)  *  -B(INDl) 

GO  TO  80 

60  Q(IND1 )=BCD 
R(IND3)=0. 

AA(IND2)  =  0. 

GO  TO  80 

70  EXPO  =  BCD 
COEF  *  COSP 

R( IND3 )  --  ( COEF*Q ( IND 1 ) **EXPO-H ( IND1 ) ) 

DBCQ=COEF*EXPO*Q(INDl )**(EXPO-l . ) 

DBCA«-1./B(IND1) 

AA(IND2-1)-DBCQ 
AA ( IND2 ) *DBCA 

80  CONTINUE 

100  DNDH2  -  DNDH(l) 


The  governing  equations 

************************************************************************ 


MP  -  IND1-1 
QO  -  Q(l) 

AO  -  A(l) 

PO  -  (B(1)/A0)**(4./3.)*ABS(Q0)/A0 
IR  -  2 
IA  -  1 
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D1  -  THETA*DT 
DO  130  I-l.HP 

D2  -  D1/DX1(I)*2. 

Q1  *  Q(I+1) 

A1  =  A(I+1) 

PI  *  (B(I+1)/A1)**(4. 
CN  -  CN1 (I)*D1 
CN2  «  CN1 (1+1 )*D1 


/3.)*ABS(Q1)/A1 


DE  -  EL(I+1)-EL(I) 

R(IR)«-(A0+A1+D2*(Q1-Q0)-D1*(QL(I)+QL(I+1))+XC(I)) 

R( IR+1 ) ■- (Q0+Q1+D2* (BETA* ( Q1 *Q1 /A1 -Q0*Q0 /AO ) +G2* ( A0+A1 ) *DE) 
+ ( CN*Q0*P0+CN2*Q1 *P 1 ) +XM (I)) 


DFQ  -  -D2 
'DFA  -  1. 

DFQ1  -  D2 
DFA1  -  1. 

DGQ  -  1.-2. *D2*BETA*Q0/A0  +  CN*PO 

DGA  =  D2* (BETA*Q0*Q0 / (A0*A0 ) +G2* (DE- ( A1+A0 ) / B (I ) ) ) 

+CN*QO*PO / 3 . * ( - 7 . / AO+4 . *DBDH (I)/(B(I)*B(I)+6./ 
(XMAN(I)*B(I) )*DNDH2) ) 

DGQ1  =  1 . +2 . *D2*BETA*Q1 / A1+  CN2*P1 
DNDH2=DNDH ( 1+ 1 ) 

DGA1  -  D2*(-BETA*Q1*Q1 / (A1*A1 )+G2*(DE+(A0+Al ) /B(I+1 ) ) ) 

+CN2*Ql*Pl/3 .*(-7 . /Al+A . *DBDH(I+1 ) / (B(I+1 )*B (1+1 )+ 

6 . / (XMAN ( 1+1 ) *B ( 1+1 ) ) *DNDH2 ) ) 

IF(DGAl.EQ.O.O)  DGA1  *  1.0E-5 
IF(KE1(I) .LE.O. )GO  TO  125 

R ( IR+ 1 ) -R ( IR+ 1 ) -D2 / 8 . * ( A0+A1 ) * ( Q1 *Q1 / ( A1 *A1 ) +QO*QO / ( AO*AO ) ) 


*KE1 (I) 

DGQ-DGQ+KE 1 ( I ) *D2 / A . * ( A0+A1 ) *Q0 / ( AO*AO ) 

DGA-DGA+D2 / 8 . *KE 1 ( I ) * (Q1 *Q1 / ( A1 *A1 ) -Q0*Q0 / ( AO*AO ) 
*(1.+2.*A1/A0)) 

DGQ1=DGQ1+KE1 (I) *D2/4 . * (A0+A1 ) *Q1 / (A1*A1 ) 
DGA1*DGA1+D2 / 8 . *KE1 ( I ) * (Q0*Q0 / ( AO*AO ) -Q1 *Q1 / (A1*A1 ) 
*(1 .+2 . *A0/A1 ) ) 


125  AA(IA)  =  DFQ 

AA(IA+1 )  -=  DFA 
AA(IA+2)  »  DFQ1 
AA(IA+3)  -  DFA1 
AA(IA+4)  -  DGQ 
AA ( IA+5 )  =  DGA 
AA ( IA+6 )  =  DGQ1 
AA(IA+7)  -  DGA1 
IR  -  IR+2 
IA  -  IA+10 
QO  -  Q1 
AO  “  A1 
PO  *  PI 
130  CONTINUE 


Account  for  tribs  and  flip  columns  if  necessary 
************************************************************************ 


IF(IT1.EQ.0)G0  TO  71 

DO  72  L-IT1,1T2 
I  -  JT(L) 

DX  -  DXl(I-l) 

IR  -  2* (I— 1 ) 

IA  -  5*IR 
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BO  =  B(I) 

AA(IA-6)  «  AA(IA-6)+T(l ,L) / (DX*B0) 
AA(IA-2)  «  AA(IA-2)+T(3  ,L)  /  (DX*B0) 
R(IR)  «  R(IR)+T(2,L)/DX 
R(IR+1 )  -  R(IR+1)+T(4,L)/DX 
DX  -  DX1(I) 

AA ( IA+2 )  -  AA(IA+2)+T(l ,L) / (DX*B0) 
AA ( IA+6 )  -  AA(IA+6)+T(3,L)/(DX*B0) 
R(IR+2)  -  R(IR+2)+T(2,L)/DX 
R(IR+3)  -  R(IR+3)+T(4,L)/DX 

72  CONTINUE 

71  FLIP1  *  LIB.LE.3 

FLIP2  -  LIB . EQ . 2 . OR . LIB . EQ . 5 
IF( .NOT.FLIPl)GO  TO  73 
SAVE  -  AA(1) 

AA( 1 )  -  AA(2) 

AA(2)  -  SAVE 
SAVE  -  AA(5) 

AA(5)  =  AA(6) 

AA(6)  -  SAVE 

73  IF ( . NOT . FLIP2 )  GO  TO  74 
SAVE  -  AA(IND2-2) 

AA(IND2-2)  «  AA(IND2-3) 

AA(IND2-3)  =  SAVE 

SAVE  =  AA(IND2-6) 

AA(IND2-6)  -  AA(IND2-7) 

AA(IND2-7)  =  SAVE 

74  CONTINUE 

CALL  MAT5(AA,C(2) ,R(2) ,IND2,IND3-1) 


Undo  flipping  and  place  data  into  the  T-array 
************************************************************************ 

IF ( . NOT . FLIP1 ) GO  TO  75 

R(l)  *  R(2) 

R(2)  -  0. 

75  IF ( . NOT . FLIP2 ) GO  TO  76 
R(IND3)  -  R(IND3-1 ) 

R(IND3-1 )  «  0. 

GO  TO  77 

76  IF(ITO.EQ.O)GO  TO  77 
T(1 , ITO)  «=  D1*C(IND3-1) 

T(2,IT0)  -  D1*(R(IND3-1)+Q1)+XC(IND1) 

T(3 , ITO)  =  D1*C0SP*Q1 /Al*(2 . *C (IND3-1 )+Ql*B(INDl ) /A1 ) 

T(4,IT0)  *  D1*C0SP*Q1/A1*(2.*R(IND3-1)+Q1)+XM(IND1) 

77  CONTINUE 
RETURN 
END 

Q  ************************************************************************ 

c  SUBROUTINE  HFROMA 

q  ************************************************************************ 

SUBROUTINE  HFROMA (H,  A,  B,  DBDH,  IPC) 
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C  Given  the  area  and  width  vs.  depth  table,  and  the  current  area, 

C  calculate  the  depth,  channel  top  width,  and  derivative  of  the  top  width 

C  using  linear  table  search  (linear  is  not  inefficient  because  you  keep 

C  an  updatable  pointer  into  the  table)  and  inverse  linear  interpolation. 

C  The  limit  switches  on  the  table  search  (top  and  bottom)  are  hxs  *  0. 

C  ************************************************************************ 

PARAMETER (MAXXS- 1000) 

COMMON / XSDATA / IXS , HXS (MAXXS ) , AXS (MAXXS ) , BXS (MAXXS ) 

IF  (A  .LE.  0)  STOP  ’River  has  DRIED  up.’ 

DO  10  I  =  IPC,  MAXXS 

IF  (HXS(I+1 )  .LE.  0)  STOP  ’River  has  OVERFLOWED  its  banks.’ 

10  IF  (A  .LE.  AXS(I+1))  GOTO  11 

11  IPC  *  I 

DO  20  I  -  IPC,  1,  -1 

20  IF  (A  .GT.  AXS ( I ) )  GOTO  21 

21  IPC  -  I 

DBDH  -  (BXS(I+1 )  -  BXS(I) ) / (HXS (1+1 )  -  HXS (I)) 

DA  =  A  -  AXS (I) 

B0  *  BXS ( I ) 

DH  -  2 . *DA/ (B0  +  SQRT(B0*B0  +  2 . *DBDH*DA) ) 

B  =  DBDH*DH  +  B0 
H  *  HXS (I)  +  DH 
RETURN 
END 

C  ************************************************************************ 

c  SUBROUTINE  M  A  T  5 

C  ************************************************************************ 

SUBROUTINE  MAT5(AA,C,R,M0,M) 

DIMENSION  AA(M0) ,C(M) ,R(M) 

Ml-M-1 

C 

C  Eliminate  extreme  diagonals 

C  ************************************************************************ 

J-l 

DO  1  1-1 , Ml, 2 

D  -  -AA(J+3)/AA(J+7) 

AA(J)  -  AA( J)+AA( J+4)*D 
AA( J+l )  -  AA( J+l )+AA(J+5)*D 
AA( J+2)  -  AA(J+2)+AA(J+6)*D 
R(I)  -  R(I)  +  R(I+1)*D 
D  -  -AA(J+4)/AA(J) 

AA( J+5)  -  AA( J+5)  +  AA( J+l )*D 
AA( J+6)  -  AA(J+6)  +  AA( J+2)*D 
R(I+1 )  -  R(I+1)  +  R(I)*D 
J  -J+10 
1  CONTINUE 

C 

C  Eliminate  lower  codiagonal 

C  ************************************************************************ 


A23 


J  -  6 


DO  2  1*2, Ml 

D  *  -AA(J)/AA(J-4) 

AA( J+l )  *  AA( J+l )  +  AA( J-3)*D 
R(I)  =  R(I)  +  R(I-1 )*D 
J  =  J+5 
2  CONTINUE 


C 

C  In  the  case  of  a  non-tributary  with  a  rating  curve  downstream, 

C  the  bottom  row  of  the  matrix  needs  work. 

C  ************************************************************************ 

IF(AA(MO).EQ.O)GO  TO  5 
D  -  -AA(MO-l) /AA(M0-3) 

R(M)  -  (R(M)+R(M1)*D)/(AA(M0)+AA(M0-2)*D) 

C 

C  Eliminate  upper  codiagonal  and  normalize  matrix 

C  ************************************************************************ 
5  J  -  5*M1  -  2 

DO  3  11=1, Ml 

I  =  Ml-II+1 

C(I)  =  C(I+1)*  (-AA( J) /AA( J-l ) ) 

R(I)  =  (R(I)-AA(J)*R(I+1))/AA(J-1) 

J  =  J-5 
3  CONTINUE 
RETURN 
END 

C  ************************************************************************ 
c  SUBROUTINE  NEW 

C  ************************************************************************ 

c 

SUBROUTINE  NEW(R,Q, A,B ,H,EL , 13 ,C1 ,C2 ,C3 ,C , ITO ,IT1 , IT2 , JT ,T,M1 ,M2 , 

. NS , Z , IXSA , IXSB , DBDH) 

INCLUDE  ’RIV1H.CMN’ 

DIMENSION  R(M2) ,A(M1) ,Q(M1) ,B(M1 ) ,C1 (Ml ) ,C2 (Ml ) , 

.C3(M1) , H (Ml ) , EL (Ml ) , 13 (Ml ) ,C(M2) ,JT(NS) ,T(4,NS) ,Z(M1) , 

.IXSA  (Ml) ,  IXSB  (Ml)  ,  DBDH  (Ml) 

IF(IT0.NE.0)D  =  T ( 1 , ITO) 

DO  60  1=1, Ml 

II  =  2*1 

IF(ITO.EQ.O)GO  TO  1 
R(II-l)  =  R(II-1 )-C(II-l )*D 
R(II)  =  R(II)-C(II)*D 
1  Q(I)=Q(I)+R(II-1 ) 

A(I)=A(I)+R(II) 

HI  =  H(I) 

C 

C  Diagnostic  check  to  see  if  depth  goes  to  zero 

Q  *****>**,**“*********,*************,*‘**************,*****>******‘*************** 

IF  (IXSA(I)  .GT.  0)  THEN 

CALL  HFR0MA(H(I),  A(I) ,  B(I),  DBDH(I),  IXSA(I)) 
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IF  (IXSB(I)  .GT.  0)  THEN 

CALL  HFR0MA(HB,  A(I),  BB,  DBDHB ,  IXSB(I)) 

C1B  -  C1(I) 

CIA  =  1.  -  C1B 
H(I)  -  C1A*H(I)  +  C1B*HB 
B(I)  -  C1A*B(I)  +  C1B*BB 
DBDH(I)  -  C1A*DBDH(I)  +  C1B*DBDHB 
ENDIF 
ELSE 

DO  30  K-1,10 
H0-H1 

IF ( HO . LE . 0 ) WRITE ( NERRFIL ,819) 

819  FORMAT (2X, ’ALERT  -  Computed  Depth  less  than  zero’) 

IF(HO.LE.O)  WRITE (NERRFIL, 818)  Z(I),H0,K 
818  FORMATUOX,  ’Node  Elev.-’  ,F6.2,5X,  ’H0“’  ,F8.2,  5X,’K«’,I4) 

IF(I3(I))10,4,5 

4  B0=C1 (I)+C2(I)*C3(I)*H0**(C3(I)-1 . ) 

H1*H0- (Cl (I) *H0+C2 ( I ) *H0**C3 ( I ) -A ( I ) ) /BO 
GO  TO  20 

5  B0-C1(I)+C2(I)*C3(I)*H0**(I3(I)-1) 

H1-H0- ( C 1 ( I ) *H0+C2 ( I ) *H0**I3 ( I ) -A ( I ) ) / BO 
GO  TO  20 

10  B0«2.*C2(I)/C1(I)*SQRT((2.*C1(I)-H0)*H0) 

H1=H0- (Cl (I)*C2(I)*ACOS ( 1 . -HO /Cl (I) ) -BO* (Cl (I) -HO) 12. 
-A(I))/B0 

20  IF(ABS((H1-H0)/H0) .LE.0.01)  GO  TO  50 

30  CONTINUE 

WRITE (OUT, 40) 

STOP  7 

50  B(I)«B0 

H(I)  -  HI 

IF (13 (I) ) 110, 104 , 105 

104  DBDH(I)-C2(I)*C3(I)*(C3(I)-1 . )*Hl**(C3(I)-2. ) 

GO  TO  120 

105  DBDH(I)«C2(I)*C3(I)*(C3(I)-l.)*Hl**(I3(I)-2) 

GO  TO  120 

110  DBDH(I)m4 .*(C2 (I) /Cl (I) )**2*(C1 (I)-Hl ) /BO 

ENDIF 

120  EL (I)  =  H(I)+Z(I) 

60  CONTINUE 


Pass  data  to  tribs 

************************************************************************ 


IF(IT1.EQ.O)GO  TO  70 
DO  80  L=IT1 ,IT2 

if  s  TT  (1  ^ 

T ( 1 ,L)  -  R(2*K)/B(K) 
80  CONTINUE 


40  FORMAT (’The  Stage-Area  equation  has  FAILED  to  CONVERGE  in’, 

.  ’  10  iterations.  RUN  ABORTED.’) 

************************************************************************ 

SUBROUTINE  READXS 

************************************************************************ 
SUBROUTINE  READXS (XSCODE,  IXSA,  IXSB,  MNODE) 
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INCLUDE  ’RIV1H.CMN’ 

DIMENSION  IXSA(MNODE) , IXSB(MNODE) ,X(MAXXS) , Y(MAXXS) , IA(MAXXS) 

CHARACTER*6  XSCODE(MNODE) 

CHARACTER*80  CARD 
CHARACTER  C*1 

LOGICAL* 1  EOF 

COMMON / XSDATA / IXS , HXS (MAXXS ) , AXS (MAXXS ) , BXS (MAXXS ) 

Q  ************************************************************************ 

C  If  no  cross-section  filename  was  given,  just  return. 

q  ************************************************************************ 

IF  (IXS.LT.l)  RETURN 

EOF  -  .FALSE. 

READ(FXSEC, ’ (A) * ,END=11)CARD 
N  -  0 
NP  -  1 

10  CONTINUE 

DO  21  J  -  1,  MNODE 

IF  (XSCODE(J)  .EQ.  CARD(1:6))  GO  TO  22 

21  CONTINUE 

WRITE  ( OUT ,  ’  ( ’  ’  CODE  ”  ,A,  ”  NOT  FOUND!”)’)  CARD(1:6) 

STOP 

22  IXSA(J)  =  NP 
IXSB(J)  =  NP 

DO  20  I  =  1,  MAXXS 

READ(FXSEC,  ’(A)’,  END  -  11)  CARD 
C  =  CARD (1:1) 

IF  (EOF  .OR.  (C  .GE.  ’A’  .AND.  C  .LE.  ’Z’)  .OR. 

(C  .GE.  ’a’  .AND-.  C  .LE.  ’z’))  GOTO  12 
N  *  N  +  1 

READ ( CARD ,  ’(2F10.0)’)  X(N) ,  Y(N) 

20  CONTINUE 

GOTO  12 

11  EOF  -=  .TRUE. 

12  CONTINUE 
N1  *  N 

CALL  XSECT(X,  Y,  Ik,  HXS(NP),  BXS(NP),  AXS(NP),  Nl) 

N  -  NP 

NP  -  NP  +  Nl 

HXS (NP)  -  0. 

N  -  0 

IF  (.NOT.  EOF)  GOTO  10 
CLOSE (10) 

RETURN 

13  STOP  ’Cross-Section  File  is  Empty’ 

END 

************************************************************************ 

SUBROUTINE  SHELL 
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c  ************************************************************************ 
SUBROUTINE  SHELL (R,  IA,  N) 

C 

DIMENSION  R(N) ,  IA(N) 

DO  5  I  -  1,H 
5  IA(I)  -  I 

IG  -  N 

10  IG  -  IG/2 

IF  (IG  .LE.  0)  GOTO  999 

DO  20  I  -  IG+1 ,  N 
J  -  I  -  IG 

30  IF  (J  .LT.  1  .OR.  R(IA( J) )  .LE.  R(IA(J+IG)))  GOTO  20 

IT  -  IA( J) 

IA( J)  -  IA( J+IG) 

IA( J+IG)  «  IT 
J  *  J  -  IG 
GO  TO  30 
20  CONTINUE 

GOTO  10 
999  RETURN 

END 

q  ************************************************************************ 
c  SUBROUTINEXSECT 

0  ************************************************************************ 
SUBROUTINE  XSECT(X,  Y,  IA,  H,  B,  A,  N) 

INCLUDE  ’RIV1H.CMN’ 

DIMENSION  X(N) ,  Y(N) ,  IA(N) ,  H(N) ,  B(N) ,  A(N) 

DIMENSION  LP(NLIST) 

0  ************************************************************************ 
C  Check  if  X  is  monotonic 

0  ************************************************************************ 

DO  5  I  -  2,  N 

IF  (X(I)  .LE.  X(I-l) )  STOP 
5  CONTINUE 

CALL  SHELL (Y,  IA,  N) 

0  ************************************************************************ 
C  Now  the  Y’s  are  sorted  by  the  index  IA. 

C  Start  from  the  stream  bottom  and  go  up. 

0  ************************************************************************ 


YBOT  - 

Y(IA(N) ) 

H  ( 1 )  « 

0. 

B  ( 1 )  - 

0. 

A  ( 1 )  - 

0. 

NL  -  0 

do  io  : 

L  -  1,  N 

IC  ■ 

«  N  -  I  + 

IS  ■ 

-  IA(IC) 

0  ************************************************************************ 
C  Calculate  the  width  and  area  at  this  point. 

Q  ************************************************************************ 

H(I)  -  YBOT  -  Y(IS) 
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B (I)  -  0. 

A(I)  -  0. 

IF  (NL  .GT.  0)  THEN 
DO  20  IL  »  1,  NL,  2 
LO  -  LP(IL) 

LI  -  LP(IL+1) 

IF  (Y(IS)  .EQ.  Y(LO) )  THEN 
XO  -  X(LO) 

ELSE 

XO  -  X(LO)  +  (X(L0+1 )  -  X(LO) )*(Y(IS)  -  Y(LO))/ 

(Y(L0+1)-  Y (LO) ) 

ENDIF 

IF  (Y(IS)  .EQ.  Y(L1+1 ) )  THEN 
XI  -  X(L1+1 ) 

ELSE 

XI  -  X(L1)  +  (X(L1+1 )  -  X(L1) )*(Y(IS)  -  Y(L1 ) ) / 

(Y(L1+1)-  Y(L1) ) 

ENDIF 

20  B(I)  -  B (I)  +  XI  -  XO 

A(I)  -  A(I-l)  +  (B (I)  +  B(I-1 ) )*(H(I)  -  H(I-l) ) /2. 

ENDIF 

Q  ************************************************************************ 

C  If  you’ve  hit  the  bank,  you’re  done. 

q  ************************************************************************ 
IF  (IS  .LE.  1  .OR.  IS  .GE.  N)  GOTO  999 
C  ************************************************************************ 

C  Now  find  out  if  the  new  point  is  a  v  or  a  *  or  a  \  or  a  / 

C  so  that  you  can  adjust  the  intersections  list. 

C  ************************************************************************ 

IF  (Y(IS-l)  .LT.  Y(IS)  .AND.  Y(IS)  .LT.  Y(IS+1))  THEN 
DO  30  IL  -  1,  NL,  2 

30  IF  (LP(IL)  .EQ.  IS)  GO  TO  31 

31  LP(IL)  *  IS  -  1 

ELSE  IF  (Y(IS-l)  .GE.  Y(IS)  .AND.  Y(IS)  .GE.  Y(IS+1))  THEN 
DO  40  IL  -  2,  NL,  2 

40  IF  (LP(IL)  .EQ.  IS  -  1)  GO  TO  41 

41  LP(IL)  -  IS 

ELSE  IF  (Y(IS-l)  .LT.  Y(IS)  .AND.  Y(IS)  .GE.  Y(IS+1))  THEN 
IF  (NL  .EQ.  0)  THEN 
IL  *  0 
ELSE 

DO  50  IL  -  NL,  1,  -1 

IF  (LP(IL)  .LT.  IS)  GOTO  51 
LP(IL  +  2)  =  LP(IL) 

50  CONTINUE 
ENDIF 

51  LP(IL  +  2)  -  IS 

LP(IL  +  1)  -  IS  -  1 
NL  -  NL  +  2 

ELSE 

DO  60  IL  -  1,  NL 

60  IF  (LP(IL)  .EQ.  IS-1)  GOTO  61 

61  NL  *  NL  -  2 

IF  (IL  .LE.  NL)  THEN 
DO  62  JL  *  IL,  NL 

62  LP(JL)  -  LP( JL+2) 

ENDIF 

ENDIF 
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ooo  *  noon 


10  CONTINUE 
999  N  *  I 
RETURN 
END 

************************************************************************ 
SUBROUTINE  GREGORIAN  DATE 
************************************************************************ 

SUBROUTINE  GREGORIAN  DATE ( ELAPSE , YEAR , MONTH , GDAY , HOUR ) 


***  Variable  declarations 

LOGICAL  LEAP  YEAR 
CHARACTER  MOlJTH*9 
INTEGER  YEAR,  GDAY 

************************************************************************ 
Determine  if  new  year  (regular  or  leap)  and  increment  year 
************************************************************************ 


JDAYG-ELAPSE  -  1 

HOUR  -  ( ELAPSE-FLOAT ( JDAYG )  -  1)*24. 

LEAP_YEAR  =  MOD ( YEAR , 4 ) . EQ . 0 

IF  (.NOT. LEAP  YEAR. AND. JDAYG. EQ. 365)  THEN 
JDAYG  =  JDAYG- 365 

YEAR  =  YEAR+1 

LEAP  YEAR  -  MOD(YEAR,4) .EQ.O 

ELSE  IF- (JDAYG.EQ.366)  THEN 
JDAYG  *  JDAYG-366 

YEAR  -  YEAR+1 

LEAP  YEAR  =  .FALSE. 

END  IF  “ 


C  ************************************************************************ 

C  Determine  month  and  day  of  year 

C  ************************************************************************ 


IF  (LEAP  YEAR)  THEN 

IF  (JT5AYG.GE.0. AND. JDAYG.LT. 31)  THEN 
GDAY  -  JDAYG+1 
DAYM  -  31.0 
MONTH  -  ’  January’ 

ELSE  IF  (JDAYG. GE.31.AND.JDAYG.LT. 60)  THEN 
GDAY  -  JDAYG-30 
DAYM  *  29.0 
MONTH  =  ’  February’ 

ELSE  IF  (JDAYG. GE.60.AND.JDAYG.LT. 91)  THEN 
GDAY  -  JDAYG- 5 9 
DAYM  =31.0 
MONTH  =  ’  March’ 

ELSE  IF  (JDAYG. GE.91.AND.JDAYG.LT. 121)  THEN 
GDAY  =  JDAYG- 90 
DAYM  =30.0 
MONTH  =  ’  April’ 

ELSE  IF  (JDAYG. GE.121.AND.JDAYG.LT. 152)  THEN 
GDAY  »  JDAYG- 120 
DAYM  =31.0 
MONTH  =  ’  May’ 

ELSE  IF  (JDAYG.GE.152.AND.JDAYG.LT. 182)  THEN 
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GDAY  -  JDAYG-151 
DAYM  *30.0 
MONTH  “  ’  June’ 

ELSE  IF  (JDAYG.GE. 182. AND. JDAYG.LT. 213)  THEN 
GDAY  “  JDAYG-181 
DAYM  “31.0 
MONTH  “  ’  July’ 

ELSE  IF  (JDAYG.GE. 213. AND. JDAYG.LT. 244)  THEN 
GDAY  “  JDAYG-212 
DAYM  “31.0 
MONTH  “  ’  August’ 

ELSE  IF  (JDAYG.GE. 24A.AND.JDAYG.LT. 274)  THEN 
GDAY  “  JDAYG-243 
DAYM  “30.0 
MONTH  “  ’September’ 

ELSE  IF  (JDAYG.GE. 274. AND. JDAYG.LT. 305)  THEN 
GDAY  “  JDAYG-273 
DAYM  “31.0 
MONTH  “  ’  October’ 

ELSE  IF  (JDAYG.GE. 305. AND. JDAYG.LT. 335)  THEN 
GDAY  “  JDAYG-304 
DAYM  “30.0 
MONTH  “  ’  November’ 

ELSE  IF  (JDAYG.GE. 335. AND. JDAYG.LT. 366)  THEN 
GDAY  “  JDAYG-334 
DAYM  “31.0 
MONTH  =  ’  December’ 

END  IF 
ELSE 

IF  (JDAYG.GE. 0. AND. JDAYG.LT. 31)  THEN 
GDAY  *  JDAYG+1 
DAYM  “31.0 
MONTH  =  ’  January’ 

ELSE  IF  (JDAYG.GE. 31. AND. JDAYG.LT. 59)  THEN 
GDAY  “  JDAYG-30 
DAYM  “29.0 
MONTH  “  ’  February’ 

ELSE  IF  (JDAYG.GE. 59. AND. JDAYG.LT. 90)  THEN 
GDAY  “  JDAYG-58 
DAYM  “31.0 
MONTH  “  ’  March’ 

ELSE  IF  (JDAYG.GE.90.AND.JDAYG.LT. 120)  THEN 
GDAY  “  JDAYG-89 
DAYM  “30.0 
MONTH  “  ’  April’ 

ELSE  IF  (JDAYG.GE. 120. AND. JDAYG.LT. 151)  THEN 
GDAY  “  JDAYG-119 
DAYM  “31.0 
MONTH  “  ’  May’ 

ELSE  IF  (JDAYG.GE. 151. AND. JDAYG.LT. 181)  THEN 
GDAY  “  JDAYG-150 
DAYM  “30.0 
MONTH  “  ’  June’ 

ELSE  IF  (JDAYG.GE. 181 .AND. JDAYG.LT. 212)  THEN 
GDAY  “  JDAYG-180 
DAYM  “31.0 
MONTH  “  ’  July’ 

ELSE  IF  (JDAYG.GE. 212. AND. JDAYG.LT. 243)  THEN 
GDAY  “  JDAYG-211 
DAYM  “31.0 
MONTH  “  ’  August’ 

ELSE  IF  (JDAYG.GE. 243. AND. JDAYG.LT. 273)  THEN 
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GDAY  -  JDAYG-242 
DAYM  -  30.0 
MONTH  -  ’September’ 

ELSE  IF  (JDAYG.GE. 273. AND. JDAYG.LT. 304)  THEN 
GDAY  -  JDAYG-272 
DAYM  -  31.0 
MONTH  -  ’  October’ 

ELSE  IF  (JDAYG.GE. 304. AND. JDAYG.LT. 334)  THEN 
GDAY  «  JDAYG-303 
DAYM  -  30.0 
MONTH  «  ’  November’ 

ELSE  IF  (JDAYG.GE. 334. AND. JDAYG.LT. 365)  THEN 
GDAY  -  JDAYG-333 
DAYM  -  31.0 
MONTH  -  ’  December’ 

END  IF 
END  IF 
RETURN 
END 

C  ************************************************************************ 

C  SUBROUTINE  JULIAN  DATE 

C  ************************************************************************ 


SUBROUTINE  JULIAN  DATE ( STADY , ENDY , SYEAR , SMONTH , SDAY , SHOUR , 
EYEAR , EM0NTH7EDAY , EHOUR ) 

*****  Variable  declarations 

DIMENSION  DAYM(12) 

INTEGER  SYEAR , SMONTH , SDAY , EYEAR , EMONTH , EDAY 


Specify  days  for  each  month  of  the  year 
************************************************************************ 


DAYM(l) 

31.0 

DAYM(2) 

zr 

29.0 

DAYM(3) 

ac 

31.0 

DAYM(4) 

« 

30.0 

DAYM(5) 

* 

31.0 

DAYM(6) 

30.0 

DAYM(7) 

« 

31.0 

DAYM(8) 

* 

31.0 

DAYM(9) 

ac 

30.0 

DAYM(10) 

-  31.0 

DAYM(ll) 

-  30.0 

DAYM(12) 

-  31.0 

Determine  Julian  day  for  start  time 

************************************************************************ 


STADY  -  0. 

DAYM(2)  -  28. 

IF (MOD (SYEAR, 4) .EQ.0)DAYM(2)  -  29.0 

IF ( SMONTH. GT.l)  THEN 
DO  100  I- 1, SMONTH- 1 

STADY  -  STADY  +  DAYM(I) 

100  CONTINUE 
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END  IF 

STADY  =  STADY  +  SDAY  +  SHOUR/24 . 


C 

C  Determine  Julian  day  for  end  time 

C  ************************************************************************ 


ENDY  -  0. 

IF (EYEAR . GT . SYEAR)  THEN 
DO  200  I-SYEAR, EYEAR- 1 
IF (MOD (I, 4) .EQ.0)THEN 
ENDY-  ENDY  +  366. 

ELSE 

ENDY  -  ENDY  +  365. 

END  IF 

200  CONTINUE 

END  IF 

DAYM(2)  -  28. 

IF (MOD (EYEAR, 4) .EQ. 0)DAYM(2)=29 . 

IF(EMONTH.GT.l)  THEN 
DO  300  1=1 ,EMONTH-l 

ENDY  =  ENDY  +  DAYM(I) 

300  CONTINUE 

END  IF 

ENDY  =  ENDY  +EDAY  +  EHOUR/24. 

RETURN 

END 

Q  ************************************************************************ 

C  SUBROUTINE  RIVDU 

Q  ************************************************************************ 

SUBROUTINE  RIVDU (MNODE , DX , RMILE , Q , QLC , QLT , A , B , EL , XMAN ) 

C 

SAVE  NFIRST 

INCLUDE  ’RIV1H.CMN’ 

CHARACTER*30  DNAME  (18) 

DIMENSION  DX (MNODE) , RMILE (MNODE) ,Q (MNODE) , QLC (MNODE) , 


+  QLT (MNODE ) , A (MNODE ) 

DATA  DNAME/ 

,B (MNODE) 

, EL (MNODE ) , XMAN (MNODE ) 

+ 

’Delta-x 

,  ’River  Mile 

+ 

’Flow  (cfs) 

* 

,  ’Constant  Lat.  Flow 

+ 

’Time  Var.  Lat 

Flow  ’ 

,  ’Area 

+ 

’Width 

> 

,  ’Water  Surf.  Elev 

+ 

’Mannings  n 
*  Dummy 

J 

,  ’Dummy 

+ 

> 

,  ’Dummy 

+ 

*  Dummy 

* Dummy 

> 

,  ’Dummy 

+ 

J 

,  ’Dummy 

+ 

’Dummy 

> 

,  ’Dummy 

DUMMY  =  0. 
RDUMMY  =  0. 


IF  (NFIRST  .NE.  1)  THEN 
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NCHEM  “  1 

WRITE  (RIVDMP ,  6000)  NCHEM 
6000  FORMAT  (15) 

C 

WRITE  (RIVDMP,  6010)  RDUMMY , RDUMMY 
6010  FORMAT (A40.E10 . 2 ,F10 . 2) 

TIME  -  0. 

TFIN  -  0. 

^  WRITE  (RIVDMP,  6020)  TIME,  TFIN,  MNODE 

6020  F0RMAT(1X,F10 . 2 ,F10 . 2 , / ,15) 

C  WRITE  (RIVDMP,  6030)  (DNAME  ( JK) ,  JK  =  1 ,  6  +  (12*NCHEM)) 

6030  FORMAT (A30) 

NFIRST  -  1 
END  IF 
C 
C 

DO  100  1*1, MNODE 

SYSDUMP (1,1) *DX ( I ) 

SYSDUMP (2,1) *RMILE ( I ) 

SYSDUMP(3 ,I)*Q(I) 

SYSDUMP (4,1) *QLC ( I ) 

SYSDUMP (5 , I ) “QLT ( I ) 

SYSDUMP(6 , I)*A(I) 

SYSDUMP(7 ,I)*B(I) 

SYSDUMP(8 ,I)*EL(I) 

SYSDUMP ( 9 , I ) =XMAN ( I ) 

SYSDUMP (10,1) -DUMMY 
SYSDUMP ( 1 1 , I ) “DUMMY 
SYSDUMP ( 1 2 , I ) “DUMMY 
SYSDUMP (13,1) “DUMMY 
SYSDUMP ( 1 4 , I ) “DUMMY 
SYSDUMP ( 1 5 , I ) “DUMMY 
SYSDUMP  ( 1 6 , 1 ) “DUMMY 
SYSDUMP ( 1 7 , I ) “DUMMY 

WRITE (RIVDMP, 6040)  I .ELAPSE ,DX(I) ,RMILE(I) ,Q(I) ,QLC(I) , 

+  QLT(I) , A(I) ,B(I) ,EL(I) ,XMAN(I) .DUMMY, DUMMY, DUMMY, 

+  DUMMY,  DUMMY,  DUMMY,  DUMMY,  DUMMY,  DUMMY 

6040  FORMAT (IX, 15 ,F10 .2,3X,/ ,6 (Ell. 3),/ ,6 (Ell. 3)) 

100  CONTINUE 

INUM=MNODE 

C 

RETURN 

END 

c  ************************************************************************ 
c  FUNCTION  VALNEW 

C 

C  THIS  FUNCTION  PERFORMS  LINEAR  INTERPOLATION 

c  ************************************************************************ 

FUNCTION  VALNEW(DAY,T1 ,T2,V1 ,V2) 

C 

RATIO  “  (T2-DAY)/ (T2-T1) 

VAL  “  ( 1 . O-RATIO) *V2+RATI0*V1 

VALNEW  “  VAL 

RETURN 

q  ************************************************************************ 

C  SUBROUTINE  RIV1H_INT 
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c  ************************************************************************ 


SUBROUTINE  RIV1H  INIT 
INCLUDE  ’RIV1H.CMN’ 
ISEGOUT ( 1 )“1 
ISEGOUT (2)«2 
ISEGOUT (3 )«3 
ISEGOUT  ( 4  )«4 
ISEGOUT (5 )-5 
ISEGOUT (6 )«6 
IDISPLAY(1)*1 
IDISPLAY(2)«2 
IDISPLAY(3)-3 
IDISPLAY(4)m4 
IDISPLAY(5)«5 
IDISPLAY(6)«6 
IDISPLAY(7)«7 
IDISPLAY(8)*8 
IDISPLAY ( 9 ) =9 
IDISPLAY(10)*10 


LABELS ( 1 ) 
LABELS (2) 
LABELS (3) 
LABELS (4) 
LABELS (5) 
LABELS (6) 
LABELS (7) 
LABELS (8) 
LABELS (9) 
LABELS(IO) 
LABELS (11) 
LABELS (12) 
LABELS (13) 
LABELS (14) 
LABELS (15) 
LABELS (16) 
LABELS (17) 
RETURN 
END 


’Delta-x’ 
’River  Mile’ 
’Flow  (cfs) ’ 
’QLC(cfs/f ) ’ 
’QLD(cfs/f) ’ 
’Area  (sft) ’ 
’Width  (ft)’ 
’WSElev(ft) ’ 
’Mannings  n’ 

’Dummy ’ 

’Dummy ’ 
’Dummy’ 
’Dummy’ 
’Dummy ’ 
’Dummy’ 

’ Dummy ’ 
’Dummy ’ 


C  ************************************************************************ 

C  SUBROUTINE  TIME  VARYING  DATA 

Q  ***********************************T ***************T******************** 

SUBROUTINE  TIME  VARYING  DATA (JDAY,IYR,TNXTVD, NBC, DLT, 

DUMMY, IQL.QLT) 

INCLUDE  ’RIV1H.CMN’ 

REAL  JDAY 

LOGICAL  INT  BC(IBRAN) 

LOGICAL  INT^LAT 

CHARACTER* 15  INTOPT,  BCFNAME(IBRAN) 

Dimensions  for  boundary  conditions 

************************************************************************ 


DIMENSION  DUMMY (IBRAN) , DUMMY 1 (IBRAN) ,DUMMY2(IBRAN) , 

TNXTBC(IBRAN) ,TNXTBC2( IBRAN) ,NUMBC( IBRAN) ,INBC( IBRAN) 
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C  Dimensions  for  lateral  inflows 

q  **********************★**★*****★**********<****************************** 

DIMENSION  QLT(INDl) ,  QLT2 ( IND 1 ) ,  QLT1 ( IND 1 ) , NPS_REA ( IND 1 ) 

C  Dimensions  for  time  steps 

C  ************************************************************************ 

DIMENSION  TDT ( 200 ) , DTV ( 200 ) 

SAVE 


I.  Read  all  time-varying  data  on  initial  call 
************************************************************************ 


IF ( IFIRST . NE . 1 ) THEN 

IDUM  -  0 
DUM  -  0. 

Determine  initial  year  of  simulation 
************************************************************************ 


INITYR  =  IYR 
1st  -  Read  timesteps 

************************************************************************ 

READ (INPUT, 160) NUMDT 
WRITE (OUT, 260 )NUMDT 
DO  1*1 , NUMDT 

READ ( INPUT , 1 7 0 ) I YR , IMO , IDY , THR , DTV ( I ) 

CALL  JULIAN  DATE ( DUM , TDT ( I ) , INITYR , IDUM , IDUM , DUM , 

IYR, IMO, IDY, THR) 

WRITE (OUT, 270) IYR, IMO, IDY, THR,TDT(I) ,DTV(I) 

END  DO 

2nd  -  Open  file  for  boundary  conditions 
************************************************************************ 


IBF  *  30 

DO  100  1*1, NBC 

READ  ( INPUT ,  1 6  5 )  BCFNAME  ( I ) 

OPEN (UNIT-IBF , FILE-BCFNAME (I) , STATUS* ’ OLD ’ ) 
READ (IBF, 180)INBC(I) ,NUMBC(I) ,INTBC 
WRITE ( OUT , 280 ) INBC ( I ) 

WRITE ( OUT , 29 0 ) BCFNAME ( I ) 

IF ( INTBC . GE . 1 ) THEN 
INT  BC(I)-.TRUE. 

INTOPT  -’LINEAR  INTERPOL’ 

ELSE 

INTOPT  -’STEP  FUNCTION’ 

END  IF 

WRITE ( OUT , 300 ) INTOPT 
TNXTBC(I)  -  0. 

IBF  -  IBF  +  1 
100  CONTINUE 
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3rd  -  Read  time  varying  lateral  inflow  file 
************************************************************************ 


IF(IQL.GE.l)  THEN 

READ (LAT, 180) NUMLAT  UD , NUML , LATOPT 
IF(LAT0PT  .GE.  1 ) THEN 
INT  LAT  «  .TRUE. 

INTDPT  -’LINEAR’ 

ELSE 

INTOPT  -’STEP’ 

ENDIF 

READ(LAT,190)(NPS  REA(I),  I  -  1,  NUML) 
WRITE(OUT,310) 

WRITE (OUT, 320 ) (NPS  REA(I) ,  I  -  1,  NUML) 
WRITE (OUT , 300 ) INTOPT 
END  IF 

IDT  -  1 
IFIRST  -  1 
END  IF 


II.  Assign  and/or  update  all  time-varying  data  all  calls 
************************************************************************ 


1st  -  Assign  time  steps 

************************************************************************ 


IF  ( JDAY . GE . TNXTDT )  THEN 
DO  WHILE  ( JDAY. GE. TNXTDT) 

DLT  -  DTV(IDT) 

IDT  -  IDT  +  1 
TNXTDT  -  TDT(IDT) 

END  DO 

WRITE ( OUT ,330) JDAY , DLT , TNXTDT 
END  IF 

TNXTVD  «  MIN (TNXTVD, TNXTDT) 

2nd  -  Read  boundary  data 

************************************************************************ 


IBF  -  30 

DO  600  I-l.NBC 

IF  (JDAY.GE.TNXTBC(I) )  THEN 
DO  WHILE ( JDAY. GE.TNXTBC (I)) 

TNXTBC2(I)  -TNXTBC ( I ) 

DUMMY2 (I)  -  DUMMY1 (I) 

READ(IBF,170)IYR,IMO,IDY,THR,  DUMMYl(I) 

CALL  JULIAN  DATE ( DUM , TNXTBC (I) , INITYR , IDUM , IDUM , DUM , 
IYR , IMO , IDY , THR) 

END  DO 

TNXTVD  -  MIN (TNXTVD, TNXTBC (I)) 

DUMMY(I) -DUMMY 1 (I) 

WRITE (OUT, 3 40)  INBC(I) , IYR , IMO , IDY , THR , JDAY , 

DUMMY 1 (I) .TNXTBC (I) 

END  IF 

IF ( INT  BC(I) )  DUMMY(I)  -  VALNEW( JDAY, TNXTBC (I) ,TNXTBC2(I) , 
DUMMY1 (I) ,DUMMY2(I) ) 

IBF  -  IBF  +  1 
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c  *****^*;*t*lii**i***i*i****iS****************************************** 

c 

IF(IQL.GE.l)  THEN 

IF  ( JDAY . GE . TNXTLT )  THEN 
DO  WHILE  ( JDAY. GE. TNXTLT) 

TNXTLT2  -  TNXTLT 
DO  I«1,NUML 

QLT2 ( NPS_REA ( I ) )-QLTl (NPS_REA(I) ) 

END  DO 

READ  (LAT ,  200 )  IYR ,  IMO ,  IDY ,  THR , 

(QLTKNPS  REA(IK) ) ,  IK-1  ,NUML) 
rAT.T.  JULIAN  DATE(DUM,  TNXTLT ,  INITYR ,  IDUM ,  IDUH ,  DUH , 

IYR ,  IMO ,  IDY7THR ) 

END  DO 

TNXTVD  -  MIN (TNXTVD, TNXTLT) 

DO  IK-1, NUML 

QLT(NPS  REA(IK) )=QLT1 (NPS_REA(IK) ) 

END  DO 

C  WRITE (OUT, 350)  IYR , IMO , IDY , THR , JDAY ,  TNXTLT 

C  WRITE (OUT, 360 )(NPS  REA(I) ,1=1, NUML) 

C  WRITE(0UT,370) (QLTlNPS_REA(IK) ) ,IK=1 ,NUML) 

END  IF 

IF ( INT  LAT)  THEN 
DO  7-1,  NUML 

QLT(NPS  REA(J))  -  VALNEW (JDAY, TNXTLT, TNXTLT 2 , 

QLT1 (NPS_REA( J) ) ,QLT2(NPS_REA( J) ) ) 

END  DO 
END  IF 
END  IF 
RETURN 

C  INPUT  FORMATS 

Q  ************************************************************************ 

160  FORMAT(IIO) 

165  FORMAT (A15) 

170  FORMAT(I5 ,15,15, 2F10 .4) 

180  FORMAT(8I10) 

190  FORMAT (15) 

200  FORMAT(I5,I5,I5,150(F10.4)) 


C  OUTPUT  FORMATS 

Q  ************************************************************************ 


260  FORMAT (/ , *******************  TIME  STEPS  ******************’,/, 

.’  Number  of  Time /Date  Pairs  -  ’ ,110) 

270  FORMAT! ’Year  ’,16,’  Month  ’,13,’  Day  ’,13,’  Hour’,F8.4, 

.  ’  Julian  day  \F10.4,’  Time  Step  (sec)  -  \F10.4) 

280  FORMAT (/,’ ***  Boundary  Conditions  Specified  for  Segment  ***  ,14) 
290  FORMAT ( ’  Will  be  Read  From  File  -  ’,A15) 

300  FORMAT! ’  Interpolation  Option:  ’,A15) 

310  FORMAT!/,’  Time  Varying  Lateral  Inflows  Specified  at 
.x-sections ’ ) 


320  FORMAT ( 1 0 ( IX , 15 ) )  a  T  ■ 

330  FORMAT! /, ’*******Time  Step  Updated  at  Julian  Date 


,F10 . 4 , 


to  ’ ,F10.4, ’  (sec)  ’, 


.’Next  Update  on  Julian  Day  ’,F10.4) 

340  FORMAT (/,’ *******  Boundary  Condition  for  Segment  ’,15, 

.’  Updated  at:  Year  ’,16,’  Month  ’,13,’  Day  ’,13,’  Hour’,F8.4, 
.’  Julian  Date’ ,F10.4, ’  TO  ’,F10.4,’  Next  Update  on  Julian  Day 
. ,F10 .4) 

350  FORMAT ( / , ’ *******Lateral  Inflows  Updated  on:  Year  ’,16,’  Month 
.,13,’  Day  ’,13,’  Hour  ’,F8.4,’  Julian  Date’ ,F10. 4, 

.’  Next  Update  on  Julian  Day  ’.F10.4,  ’  New  Values  are:’) 

360  FORMAT ( ’  ***Cross-Section: ’ ,150110) 

370  FORMAT ( ’  ***Flow  (cfs/f)  :’,150F10.4) 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


**************************************************************************** 

CE-QUAL-RIV1 ,  VERSION  2  * 

RIV1Q  CODE  -  WATER  QUALITY  MODEL  * 

JULY,  1995  * 

* 


CE-QUAL-RIV1Q  was  originally  developed  by  Ohio  State 
University,  Bedford,  Sykes,  and  Libicki 


and  later  modified  by 
M.  Dortch  and  T.  Schneider 
Water  Quality  and  Contaminant  Modeling  Branch 
Environmental  Laboratory 
USAE  Waterways  Experiment  Station 
Vicksburg,  Mississippi,  and 
D.  M.  Griffin,  Jr. 

Louisiana  Tech  University 
Ruston,  Louisiana 

This  version  has  been  further  modified  by: 

Tim  Wool  and  James  Martin 
AScI  Corporation 
Athens ,  Georgia 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


**************************************************************************** 


BLOCK  DATA 

C  This  subprogram  initializes  those  variables  used  in  common  block 
C  statements 

C  **************************************************************************** 


INCLUDE  ’RIV1Q.CMN’ 

INCLUDE  ’ TRANSP . CMN ’ 

DATA  CP  / 12*. FALSE./ 

DATA  DARK  / . FALSE . / 

DATA  PI 13. 14159/ 

DATA  TBIOS , TAMMON , TPHYSI / 1 . 0,1. 0,1.0/ 

DATA  APCONT,ANCONT/0. 01, 0.075/ 

DATA  ONEQUI , ONITRI , OPDECY , OFEDEC , OMNDEC/0 . 35,4.57,1.59,0.14,0.15/ 

DATA  DEPTH0 , RHOO /5 .0,1.0/ 

END 

C  End  of  Block  Data  Statement 

C 

C  **************************************************************************** 

C  PROGRAM  RIV1-Q 

C  **************************************************************************** 


PROGRAM  RIV1Q 

INCLUDE  ’RIV1Q.CMN’ 

INCLUDE  ’TRANSP. CMN’ 

DIMENSION  IBYPASS(ISYS) 

DIMENSION  TPRNT ( IUPDATE ) ,  TPR ( IUPDATE ) 

DIMENSION  TPLT ( IUPDATE ) ,  TPL ( IUPDATE ) 

CHARACTER  MONTH*9 .FILES (30)*12 ,  RIVPATH*30,  MESSFIL*12 
LOGICAL  CTRL 

INTEGER  YEAR , SYEAR , SMONTH , SDAY , EYEAR , EMONTH , EDAY 
COMMON /ABLOCK/  NS 
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CHARACTER*8  BLABEL (12), BUNIT ( 1 2 ) / 1 2* ’  (MG/L)  ’/, 

ALABEL(12) / ’  TEMP  ’,’  CBODNS  ’,’  ORGAN  \ 

’  NH3N  ’ , ’  N03N  * , ’  ORG-P  ’  ,  ’  P04 

MN  FE  * , ’  DO  ’ , *  CLFM  ’ , 

ALGAE  ’ / ,AUNIT(2) / ’ (DEG.  C) ’ , ’  COL-DL  ’ / , 
FMT1 / ’ ,  F12 . 1  ’  /  ,  FMT2/ ’ ,  F12.2’/, 

FMT(15) / ’ (1X,I2,F’ , ’8.2  ’,12*’  ’,’)  ’/ 

CHARACTER*9  ADATE 
CHARACTER*80  TITLE 

OPEN  (UNIT  *  1,  STATUS  '  ’OLD’,  ACCESS  -  ’SEQUENTIAL’, 

1  .  FILE  -  ’RIV1Q.CTL’ , IOSTAT'ISTAT) 

IF  (ISTAT  .NE.  0 ) THEN 
WRITE (6, 6000) 

6000  FORMAT ( ’  RIV1Q  Control  File  Not  Found  ’) 

STOP 

ELSE 

READ (1, 8000 )INFIL 
READ (1, 8000 )HYDIN 
READ (1,8000) LATIN 
READ (1, 8000 )METIN 
8000  FORMAT (15X,A1 2) 

CLOSE (UNIT=1) 

ENDIF 


C  F)  Open  files 

q  **************************************************************************** 
DO  1010  I  -  1,  12 

IF  (INFIL  (1:1)  .EQ.  ’.’)  GO  TO  1020 
OUTFIL  (1:1)  '  INFIL  (1:1) 

GRPFIL  (1:1)  '  INFIL  (1:1) 

DMPFIL  (1:1)  -  INFIL  (1:1) 

GO  TO  1010 
1020  CONTINUE 

OUTFIL  (1:1  +  3)  '  ’.OUT’ 

DMPFIL  (1:1  +  3)  -  ’ .EDF’ 

GRPFIL  (1:1  +  3)  -  ’ . GRF ’ 

GO  TO  1030 
1010  CONTINUE 
1030  CONTINUE 

OPEN  (UNIT-INPUT,  FILE-  INFIL,  STATUS' ’ OLD ’ ) 

OPEN  (UNIT'OUT,  FILE'  OUTFIL,  STATUS' ’ UNKNOWN ’ ) 

OPEN  ( UNIT'HYD , FILE'HYDIN , FORM' ’ UNFORMATTED ’ , STATUS' ’ OLD ’ ) 

OPEN  (UNIT-GRAPH , FILE'GRPFIL , FORM' ’ UNFORMATTED ’ , STATUS' ’ UNKNOWN ’ ) 

OPEN  (UNIT'RIVDMP , FILE-DMPFIL ,  STATUS' ’ UNKNOWN ’ ) 

**************************************************************************** 
NOTE:  IND1  ■  Total  Number  of  Nodes  in  System 

MTIME  '  Total  number  of  timesteps  in  the  simulation 
NS  '  Number  of  segments  in  the  system 
**************************************************************************** 

C  2)  Read  hydrodynamic  linkage  and  input  file 

C  **************************************************************************** 


C  a)  Read  simulation  times  and  controls  from  hydrodynamic  linkage  file 


B3 


no 


Q  **************************************************************************** 


READ  (HYD)  MNODE , STARTTIME , ENDTIME , SYEAR , NS 
INITYR  *  SYEAR 
DO  1000  I  =1 ,NS 

READ (HYD)  JT(I) ,IT0(I) ,IT1(I) ,IT2(I) ,ORDER(I) ,NNODE(I) , 
1  NODE1 (I) ,ID(I) , JBC(I) 

1000  CONTINUE 


C  B)  Read  and  write  global  constants  (not  segment  specific) 

C  from  input  file 

q  **************************************************************************** 


C 


READ  (INPUT, 10) 
READ  (INPUT, 1111) 
READ  (INPUT, 1111) 
READ  (INPUT, 1111) 
READ  (INPUT, 1111) 
READ  (INPUT, 1111) 
READ  (INPUT, 1112) 
READ  (INPUT, 1112) 
READ  (INPUT, 1116) 
READ  (INPUT, 1112) 
READ  (INPUT, 1116) 
READ  (INPUT, 1115) 


TITLE 

START,  END 

TBIOS , TAMMON , TPHYSI 

APCONT , ANCONT 

ONEQUI , ONITRI , OPDECY , OFEDEC , OMNDEC 

DAWN,  SUNSET 

ICL 

NPRINT 

(TPRNT(I) ,TPR(I) ,1=1, NPRINT) 

NPLOT 

(TPLT(I) , TPL ( I ) ,1=1, NPLOT) 
(IBYPASS(I) , 1=1 , ISYS) 


WRITE  (OUT, 1190) 
WRITE  (OUT, 1191) 
WRITE  (OUT, 1192) 
WRITE  (OUT, 1190) 
WRITE  (OUT, 200) 
WRITE  (OUT, 1193) 
WRITE  (OUT, 1201) 
WRITE  (OUT, 1202) 
WRITE  (OUT, 1203) 
WRITE  (OUT, 1204) 
WRITE  (OUT, 1205) 
WRITE  (OUT, 1206) 


TITLE 

START,  END,  ICL 
TBIOS , TAMMON , TPHYSI 
APCONT, ANCONT 

ONEQUI , ONITRI , OPDECY , OFEDEC , OMNDEC 
DAWN,  SUNSET 


DO  1=1, NPRINT 

WRITE (OUT, 1208)  TPRNT(I) ,TPR(I) 
END  DO 


WRITE  (OUT, 1207) 

DO  1=1, NPLOT 

WRITE (OUT, 1208)  TPLT(I) ,TPL(I) 

END  DO 

WRITE  (OUT, 1209)  (IBYPASS(I) ,1=1 , 12) 

WRITE  (OUT, 1210) 

Initialize  QWIND  to  false 

****i'±*ic*ic1c*ic*ic1e*icic*ie*icicie*1e*iritie**ic***’k'k'k1''k'kie'k'k'kic'k’kic'kic’k'kicrkic*’k'k*'kie1c1e'kic1eie'k*j''k'k'k 


DO  1=1, NS 

QWIND ( I) =. FALSE. 
END  DO 


on  nnnnon  on  nn  on 


**************************************************************************** 

TEST  PRINT  *  0. 

IPRINT  *  1 

TPRINT  -  TPRNT(IPRINT) 

IFIRST  -  0 

**************************************************************************** 

TEST  PLOT  -  0. 

IPLOT  -  1 

TPLOT  -  TPLT( IPLOT) 


C)  Determine  name  and  open  lateral  inflow  file  (if  used) 
**************************************************************************** 

IF ( ICL . GE . 1 ) THEN 

OPEN  (UNIT*LAT,  FILE*  LATIN  ,  STATUS* ’ OLD ’ ) 

ENDIF 

D)  Read  reach  specific  constants,  initial  conditions  ,  ,  J  .... 

**************************************************************************** 

NOTE:  The  "DO  2"  loop  below  reads  the  stream  card  and  constant 
card  for  each  segment.  Then,  the  initital  values  for  each 
contaminant,  the  constant  lateral  inflow  concentrations,  and 
the  value  of  the  dispersion  coefficient  area  read  in  for  each 

**************************************************************************** 
WRITE (OUT, 1193) 

WRITE (OUT, 13 20) 

WRITE (OUT, 1193) 

DO  2  IB  *  1 ,NS 
IBC(IB)  -  0 

i \  Poad  str6dm  card 

**************************************************************************** 

READ (INPUT, 1250)  IDLL,  SNAMEO,  IDAMO,  DAMKO 
WRITE (OUT, 1251)  IDLL,  SNAMEO ,  IDAMO ,  DAMKO 

1250  FORMAT(I2, 10A4,I2,F10.0)  ,  ....  , 

1251  FORMAT ( / / , 5x , ’  For  Segment  #  \I2,5x Desc: 

21x, ’  IDAMO  *’ ,12, 5x, ’  DAMKO*  ’ ,F10.0, / ,5x,70(  _  )) 

DO  100  L0  *  1 ,NS 
L  *  L0 

IF  (ID(L0) .EQ.IDLL)  GO  TO  101 
100  CONTINUE 

WRITE (OUT, 102)  IDLL 

102  FORMAT (’  ID#’, 13,’  NOT  FOUND  IN  OUTPUT  FROM  RIV1H.’) 

STOP 

IDO (IB)  *  L 
IDAM(L)  *  IDAMO 

IF  (IDAMO. GT.0)  DAMKO  *  DAMK0/0.3048 
DAMK(L)  -  DAMKO 


101 


c  **************************************************************************** 

C  NOTE:  The  constant  damkO  above  is  used  as  input  to  Wilhelm’s 

C  structural  reaeration  equation,  REF:  Wilhelm,  S.C.  and 

C  Smith,  D.R.  1981.  Reaeration  Through  Gated-Conduit  Outlet 

C  Works.  Technical  Rept.  E-81-5.  US  Army  Engineer  Waterways 

C  Experiment  Station,  Vicksburg,  Mississippi. 

C  **************************************************************************** 


DO  103  JJJ  -1,10 
103  SNAME(JJJ,L)  -  SNAMEO(JJJ) 

C  2)  Read  constant  card  (namelist  variables) 

Q  ***********************************************************************‘***** 

QWINDO*. FALSE. 

C  3)  Read  model  input  constants 

C  **************************************************************************** 


1 

1 


READ ( INPUT ,1111) 
READ ( INPUT ,1111) 
READ ( INPUT ,1111) 
READ ( INPUT ,1111) 
READ ( INPUT ,1111) 
READ ( INPUT ,1111) 

READ  ( INPUT  ,1111) 

READ ( INPUT ,1111) 

READ ( INPUT ,1111) 

READ ( INPUT ,1111) 

READ (INPUT, 1113) 
READ ( INPUT ,1114) 


ADN(IB) ,AG(IB) ,AKN(IB) ,AKNX(IB) ,AK1(IB) 
ATB(IB) , ATS (IB) ,AP04(IB) ,BK(IB) ,CSINK(IB) 
El (IB) ,E2(IB) ,KALGDK(IB) ,  KALGRO ( IB ) 

KNCBDN ( IB ) , KOALDK ( IB ) , KOCBDN ( IB ) , KOCB 1 ( IB ) 
KON(IB) ,TDUM(IB) ,TSINK(IB) 

TSIV(IB) ,KCOLIDK(IB) ,KMNDK(IB) ,KFEDK(IB) , 
OXIDAT(IB) 

HNEFSW(IB) , KNPOOL ( IB ) ,KP04X(IB) ,KDSED(IB) , 
ACK(IB) 

LAMBDAO ( IB ) ,LAMBDA1 (IB) , LAMBDA2 ( IB ) , 
ALPHAO(IB),  KNSET(IB) 

ABSR(IB) , CBODSR(IB) ,FCBOD(IB) ,KPDK(IB) , 
KPSET(IB) 

BENP04 ( IB ) , SOD (IB) ,MACR0B(IB) ,MACGRO(IB) , 
MACDKY ( IB ) 

ELITE (IB) ,  ITEM (IB) 

QWINDO 


1111  FORMAT (5 (8X.F8.0) ) 

1112  FORMAT (5 (8X, 18) ) 

1113  FORMAT (8X,F8.0,8X,I8) 

1114  FORMAT ( 8X , L8 ) 

1115  FORMAT (1215) 

1116  FORMAT (4(8X,F8.0)) 

C 

IF (QWINDO)  QWIND ( IB ) - . TRUE . 
IF  (IB.EQ.l)  GO  TO  4 
Ml  *  L 
M2  -  L 
GO  TO  5 

4  Ml  -  1 
M2  -  NS 

5  CONTINUE 


WRITE (OUT, 1321) 
WRITE (OUT, 1324) 
WRITE (OUT, 1325) 

WRITE (OUT, 1328) 

WRITE(OUT, 1330) 


IB 

TDUM(IB) ,  ATB(IB),  ATS(IB),  TSINK(IB) ,ITEM(IB) 
KNCBDN (IB),  KOALDK (IB),  KOCBDN ( IB ), KOCB 1 (IB) , 
KON(IB) 

AG(IB) ,E1 (IB) ,E2(IB) ,TSIV(IB) , ADN(IB) ,AKN(IB) , 
AKNX(IB),  AP04 (IB) 

KFEDK(IB),  KCOLIDK(IB) ,  SOD(IB),  KNPOOL(IB), 
KP04X(IB) ,  KDSED(IB) 
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WRITE (OUT, 1331 )  MACROB ( IB ) ,MACGRO(IB) ,MACDKY(IB) ,KALGRO(IB) , 
KALGDK ( IB ) , OXIDAT ( IB ) ,  KMNDK ( IB ) 

WRITE (OUT, 1332)  BK(IB) ,  AKl(IB),  ELITE (IB) ,  ACK(IB) 

WRITE (OUT, 1333)  HNEFSW(IB) ,  M,  QWINDO 

WRITE (OUT, 1334)  LAMBDAO ( IB ) ,  LAMBDA1 (IB) ,  LAMBDA2(IB) , 


ALPHAO(IB) 

WRITE (OUT, 1335)  KNSET(IB) ,  ABSR(IB) ,  CBODSR(IB) ,  FCBOD(IB) 
WRITE (OUT, 1336)  KPDK(IB) ,  KPSET(IB) ,  BENP04(IB) 


4)  Read  initial  conditions  cards 

**************************************************************************** 

Ml  *  NODEl(L) 

M2  «  Ml  +  NN0DE(L)-1 

DO  9  I  -  Ml  ,M2 

RE AD (INPUT, 7)  (INIT(N, I) ,N=1 , 12) 

READ ( INPUT , 7 )  (CLC(N,I) ,N=1 , 12) 

7  FORMAT (12F7.0) 

5)  Read  in  dispersion  coefficient  in  ft2/sec  for  each  reach 
**************************************************************************** 

READ (INPUT, 11)  DISP(I) 

DISP(I)  «  DISP(I)*8026 . 8 
11  FORMAT (F10.0) 

9  CONTINUE 

2  CONTINUE 

End  of  "DO  2"  LOOP  -  All  initial  data  read  in 
**************************************************************************** 

E)  Determine  name  and  open  meteorological  input  file  (if  used) 
**************************************************************************** 


IF  (ITEM(l) .EQ.0)THEN 

OPEN  (UNIT'MET ,  FILE'  METIN  ,  STATUS' ’ OLD ’ ) 
ENDIF 


F)  Read  boundary  conditions  ID  card  -  locations  where  b.c.  are  in  effect 
**************************************************************************** 


READ (INPUT,*)  IBC 
NBC  '  0 

**************************************************************************** 
NOTE: NBC  is  number  of  locations  for  boundary  condition  changes 
**************************************************************************** 

DO  38  L  -  1 ,NS 

IF(IBC(L) . EQ.O)GO  TO  39 
NBC  -  NBC  +  1 

38  CONTINUE 

39  CONTINUE 


F)  Convert  time  from  HH.MM  to  days 

**************************************************************************** 
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START  -  STARTTIME 

SUNSET  -  SUNSET/ 14. 4-AINT ( SUNSET )/ 36 . 

DAWN  -  DAWN /I A. 4-AINT (DAWN) / 3 6 . 

LAMBDA  -  SUNSET-DAWN 

ELAPSE  =  STARTTIME 

TNXTVD  =  STARTTIME 

CLOCK  *  START 

JDYO  -  STARTTIME 

HSTART  -  (START-AINT( START))  *  24. 


C  Unscramble  references 

C  **************************************************************************** 

DO  31  L  *  1,NS 
DO  31  M  «  1 ,NS 

IF  (IBC(L) .EQ.ID(M))  IBC(L)  -M 

31  CONTINUE 

C  Construct  cross-reference  boundary  conditions  directory 

DO  32  L  -  1 , NBC 
IBCL  =  IBC(L) 

IF  (JBC(IBCL) . GE.O)  GO  TO  33 
WRITE  (OUT, 34)  ID(IBCL) 

34  FORMAT (’  SEGMENT  #*,I3,’  May  not  receive  input  boundary’, 

*  ’  CONDITIONS . ’ ) 

STOP 

33  JBC(IBCL)  =  L 

32  CONTINUE 


C  Read  in  distance  increments  and  lateral  inflows  from  the 

C  hydrodynamic  model.  Convert  english  to  metric  units 

C  **************************************************************************** 
DO  47  I  -  1 ,MNODE 

READ  (HYD)  RLENGTH(I) ,  QLC(I) ,  RMILE(I) 

RLENGTH(I)  -  RLENGTH(I) *0.3048 
QLC(I)  *  QLC(I)*8026 . 85 
47  CONTINUE 


DO  9111  I*=1,MN0DE 
FLOWOLD(I)  -  0. 

ARE AOLD ( I )  «  0. 

WIDTHOLD(I)=  0. 

ELEVOLD(I)  =  0. 

9111  CONTINUE 

WRITE (OUT, 10)  TITLE 
WRITE (OUT, 135)  ALABEL 

WRITE (OUT, 140)  (I, (INIT(N,I) ,N=1 , 12) ,1*1 ,MNODE) 
WRITE (OUT, 136)  ALABEL 

WRITE (OUT, 140)  (I, (CLC(N,I) ,N=1,12) ,I=l,MNODE) 


Q  *********************************************************************111:****** 

C  DEFINITION  OF  CONSTITUTENTS 

C 

C  CONC(l)  -  TEMPERATURE 
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CONC ( 2 )  -  CBOD 

CONC ( 3 )  *  ORG-N 

CONC (4)  «  NH3-N 

CONC (5)  *  N03-N 

CONC (6)  =  ORG-P 

CONC (7)  =  ORTHO-P 

CONC (8)  «  DISSOLVED  MN 

CONC (9)  -  DISSOLVED  FE 

CONC (10)  -  DO 
CONC (11)  *  COLIFORMS 
CONC  (12)  -  ALGAE 

**************************************************************************** 

Assign  initial  conditions  CONC(N,I)«INIT(N,I)  and  test  for  presence 
**************************************************************************** 


DO  51  N  -  1,12 
DO  51  I  -  l.MNODE 

CONC (N, I)  -  INIT(N,I) 

IF(IBYPASS(N) . EQ . 0 ) CP (N ) = . TRUE . 

51  CONTINUE 

ALGAE  and  MACROPHYTES  can  function  as  sources  of  ORG-N,  ORG-P, 
and  DO  variable  "ALGAEB"  replaced  by  CONC (12, I) 


The  code  segment  down  to  "630  CONTINUE"  assigns  an  output  format  to 
each  state  variable 

**************************************************************************** 


MM  -  0 

DO  630  N  -  1,12 

IF( .NOT. CP (N) )  GO  TO  630 
MM  «  MM  +  1 
MC(MM)  *  N 

IF  (N.NE.2.AND.N.NE. 10)  FMT(MM  +  2)  =  FMT2 
IF  (N.EQ. 10.0R.N.EQ.2)  FMT(MM  +  2)  ■  FMT1 
BLABEL(MM)  =  ALABEL(N) 

IF  (N  .EQ.  1)  BUNIT(MM)  -  AUNIT(l) 

IF  (N  .EQ.ll)  BUNIT(MM)  =  AUNIT(2) 

630  CONTINUE 

MAX  «  MM 

CALL  SUBROUTINE  ’SPLINE’ 
**************************************************************************** 


DO  55  L  *  1 ,NS 
Ml  -  NODEl(L) 

M2  -  NNODE(L) 

CALL  SPLINE ( CONC ( 1 , Ml ) , DC ( 1 , Ml ) , CP , RLENGTH (Ml ) , F , M2 ) 
55  CONTINUE 


3)  TIME  STEP  COMPUTATION 

Do  time  inarch  while  elapsed  time  is  less  than  the  endtime 
**************************************************************************** 


JTIME  -  1 

DO  WHILE  (ELAPSE. LE. ENDTIME) 


C  A)  Read  hydrodynamics,  alternating  between  HYDR01  and  HYDR02 

Q  **************************************************************************** 


READ (HYD , END=9999 , ERR=9999 ) DT 

DO  1021  1*1,  MNODE 
FLOWOLD ( I ) “FLOW ( I ) 

AREAOLD ( I ) “AREA ( I ) 

WIDTHOLD ( I ) “WIDTH ( I ) 

ELEVOLD ( I ) =ELEV ( I ) 

READ (HYD ) FLOW ( I ) ,QLT(I) ,AREA(I) ,WIDTH(I) ,ELEV(I) 

RJUNK(I)“ELEV(I) 

1021  CONTINUE 

LI  *  0 

DT  “  DT/86400 . 

Ml  *  LI  +  1 
M2  *  LI  +  MNODE 

C  **************************************************************************** 

C  NOTE:  2446.6  m**3  =  1  cfs*day  (a  flow  of  lcfs  for  1  day) 

(J  ***********************,******^r********************,*“*****,*********^r*,*****‘**“** 

DO  113  I  =  1, MNODE 

FLOW ( I )  =  FLOW(I)*2446 .59 

AREA(I)  =  AREA(I)*0. 0929034 
WIDTH (I)  *  WIDTH(I) *0.3048 
ELEV(I)  -  ELEV(I)*0 . 3048 
RJUNK(I)  -  RJUNK(I)*0 . 3048 
QLT(I)  =  QLT(I)*8026 . 85 
113  CONTINUE 


C  B)  Set  running  parameters 

C  **************************************************************************** 

IF  ( ELAPSE . GT . TPR ( IPRINT ) . AND . NPRINT . GT . 1 ) THEN 
IPRINT=IPRINT+ 1 
TPRINT“TPRNT ( IPRINT ) 

END  IF 

IF ( ELAPSE . GT . TPL ( IPLOT ) . AND . NPLOT . GT . 1 ) THEN 
IPLOT*IPLOT+ 1 
TPLOT“TPLT( IPRINT) 

END  IF 

IF  (JTIME.EQ.l)  DT  “  0. 

ELAPSE  “  ELAPSE  +  DT 
CLOCK  “  AMOD( CLOCK  +  DT,1.) 

DARK  “  CLOCK. GE. SUNSET. OR. CLOCK. LE. DAWN 
IF  (DARK)  SINI  *  0. 

IF  (.NOT. DARK)  SINI=SIN(PI*(CLOCK-DAWN) /LAMBDA) 

DELTAT  “  DT  *  24 . 

IF  ( JTIME  .EQ.  1)  STB  “  HSTART 
STE  “  STB  +  DELTAT 

IF  (JTIME  .EQ.  1)  THEN 
TOFDAY  “  HSTART 
ELSE 

TOFDAY  “  TOFDAY  +  DELTAT 
END  IF 


BIO 
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CALL  GREGORIAN  DATE ( ELAPSE, SYEAR, MONTH, IDAY, HOUR) 

IF  ( ELAPSE. GE.TNXTVD) CALL  TIME  VARYING_DATA  (ELAPSE ,TNXTVD, 
j  NBC , BOUND , NS ) 

TEST  PLOT  «  TEST  PLOT  +  DT*24.  +0.00001 
TESTT’RINT  «  TEST_PRINT  +  DT*24 .  +0.00001 

D)  Perform  segment  calculations  ... 

**************************************************************************** 
NOTE:  "DO  505"  loop  calls  SUBROUTINE  SEG  and  processes 
segments  in  a  downstream  direction.  This  loop  is 
executed  durinc  each  time  step . 

**************************************************************************** 
DO  505  LL  -  1 ,NS 


LMN 

-  LL 

L 

-  ORDER (NS-LL  +  1) 

IBRANCH 

-  L 

IT0STAT 

=  IT0(L) 

IT1STAT 

-  IT1(L) 

IT2STAT 

«  IT2 (L) 

M 

-  NODEl(L) 

Ml 

-  LI  +  M 

TEMP 

-  TDUM(L) 

CALL  SUBROUTINE  ’SEG’ 
**************************************************************************** 
IF  ( JBC(L) )  600,601,602 

602  JJ  ”  L 

ODUM  -  QWIND(L) 

CALL  SEG(RLENGTH(M) ,FLOWOLD(M) , AREAOLD (M) ,WIDTHOLD(M) , 

1  ELEVOLD (M) ,FLOW(M) , AREA(M) ,WIDTH(M) ,ELEV(M) , 

2  QLC(M) ,QLT(M) ,CONC(l,M) ,DC(1 ,M) ,K(1 ,M) ,SINK(1,M) , 

3  BOUND (1 , JJ) ,CP,CLC(1,M) ,CLT(1,M) ,SINI ,NNODE(L) , 

4  IT0(L) ,IT1 (L) ,IT2(L) , JT,T,DISP(M) ,F,NS,QDUM) 

GO  TO  505 

601  WRITE (OUT, 603)  ID(L) 

603  FORMAT (’  MISSING  BOUNDARY  CONDITION  FOR  SEGMENT ’,13, 

*  ’ .  RUN  ABORTED . ’ ) 


1)  Pass  boundary  conditions  through  control  structures  in 
other  cases 

**************************************************************************** 
600  JJ  *  -JBC(L) 

2)  Reaeration  over  dams.  This  section  has  been  modified 
greatly  to  accommodate  EDM  reaeration. 

**************************************************************************** 

IF  (CP(1))  TEMP  *  C0NC(1,M) 

DOSAVE  -  CONC(IO.JJ) 

IF  (IDAM(L)-l)  507,508,508 


C  3)  EDM  reaeration  below 

C  **************************************************************************** 


508  CONTINUE 

'  CTR  =  DAMK(L)  *  1.022  **  (TEMP-20.) 

DELTAH  =  ABS (  ELev(  LI  +  JJ)  -  ELev (Ml ) ) 

R  =  EXP  (-CTR  *  DELTAH) 

DOSAT  -  14 .652+ (-0. 41022+ (0.00799 1-0 . 000077774*TEMP)*TEMP) 

1  *TEMP 

C0NC(10, JJ)  «  DOSAT* (l.-R)  +  DOSAVE+R 

507  QDUM  =  QWIND(L) 

C 

C  CALL  SUBROUTINE  ’SEG’ 

C  **************************************************************************** 

CALL  SEG (RLENGTH (M) ,FLOWOLD(M) ,AREAOLD(M) ,WIDTHOLD(M) , 

1  ELEVOLD(M) ,FLOW(M) ,AREA(M) ,WIDTH(M) ,ELEV(M) , 

2  QLC(M) ,QLT(M) ,CONC(l,M) ,DC(1,M) ,K(1,M) ,SINK(1,M) , 

3  CONC ( 1 , JJ) , CP , CLC ( 1 , M) , CLT ( 1 , M) , SINI , NNODE (L) , 

4  ITO(L) , IT1 (L) , IT2 (L) , JT,T,DISP(M) ,F,NS,QDUM) 

CONC(IO.JJ)  *  DOSAVE 
505  CONTINUE 


C  "DO  505"  LOOP  COMPLETE  -  CALLS  TO  SEG  Complete  for  this  time  step 

C  **************************************************************************** 


C  E)  Write  out  updated  information 

C  **************************************************************************** 


C  Write  out  segment  data  to  graphics  files 

C  **************************************************************************** 
C 

IF (TEST  PLOT . GE . TPLOT . OR . JTIME . EQ . 1 )  THEN 

IF (JTIME.EQ.1) WRITE (GRAPH)  (RMILE(IN) ,  IN=l,MNODE) 

CALL  RIVDU( JTIME) 

WRITE (GRAPH)  ELAPSE 

WRITE (GRAPH)  ((CONC(  NN,  IN)  ,  NN-1,12),  IN-l.MNODE) 

TEST  PLOT  ■  0. 

END  IF  “ 


C  Write  out  segment  data  to  output  file 

c  **************************************************************************** 

IF (TEST  PRINT. GE.TPRINT. OR. JTIME.EQ.1)  THEN 
WRITE (OUT, 190) 

WRITE (OUT, 200)  TITLE 

WRITE ( OUT , 2 1 1 )  CLOUDO , WINDO , DRYO , WETO , ATMO 
DO  500  L  -  1,  NS 
Ml  -  NODE1 (L)-l 
M2  =  NNODE (L) 

WRITE (OUT, 210)  SYEAR, MONTH, IDAY, HOUR, ID (L) , 

1  (SNAME(JJ,L) , JJ=1 , 10) 

WRITE (OUT, 260)  (BLABEL(MM) ,MM=1 ,MAX) 
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500 


WRITE (OUT, 270) 
WRITE ( OUT, FMT) 

CONTINUE 
TEST  PRINT  =  0. 
END  IF 


(BUNIT(MM)  ,MM=1  ,MAX) 

(I ,RMILE(I) , (C0NC(MC(MM) ,1) ,MM=1 ,MAX) , 
I=M1+1  ,M1+M2) 


STB  *  STE 

IF  (STB  .GE.  24.  )  STB  =  STB-24. 

JDYO  '  JDYO 

IF  (TOFDAY  .GE.  24.)  JDYO  *  JDYO  +  1 
IF  (TOFDAY  .GE.  24.)  TOFDAY  *  TOFDAY-24. 

IF  (JDYO  .GT.  365  )  JDYO  -  JDYO-365 

JTIME  «  JTIME  +  1 
END  DO 

**************************************************************************** 

END  OF  TIME  LOOP 

THE  END  DO  COMPLETES  THE  MAIN  TIME  MARCH,  CONTINUE  UNTIL 
THE  ELAPSED  TIME  IS  <*=  THE  SPECIFIED  END  TIME 


**************************************************************************** 
'999  CONTINUE 
STOP 


Output  format  section  . . 

**************************************************************************** 


10  FORMAT (A80) 

135  FORMAT (5x, ’Initial  Conditions ’,/ ,5x, 18 (’=’),// ,5X, 12(A8) ,/ ) 

136  FORMAT(// ,5x, ’Lateral  Inflow  Concentrations ’/ ,5X,29( ’=’),// ,5x, 

. 12(A8) , / ) 

140  FORMAT (13 , 12F8 .2) 

190  FORMAT ( 1H1 , / / , lx , ’ CE-QUAL-RIV1  WATER  QUALITY  MODEL  ’) 

200  FORMAT (/,5x,A80) 

210  FORMAT (/ , ’YEAR  ’,14,’  MONTH  ’,A9,’  DAY  ’,12, 

*  ’  HOUR  ’  ,F8 . 2 ,  ’  SEGMENT’  ,13,  ’  \10A4, 

*  T61 , ’ : ’ ) 

211  FORMAT (’  CLOUD  COVER  ’,  F8.3,’  WIND  SPEED'  ’,F8.2,’  DRY  BULB  ’, 

F8.2,’  WET  BULB  TEMP  *  ’,  F8.2,  ’  ATMOSPHERIC  PRESSURE  *  ’,F8.2) 
260  FORMAT (/,T7, ’RIVER’ , 6X, 11 (A8 ,4X) ,A8) 

270  FORMAT ( ’  ’ ,T8 , ’MILE ’ ,6X, 11 (A8 ,4X) ,A8) 


FORMAT  STATEMENTS  for  global  constants 

**************************************************************************** 


1190  FORMAT ( 13x, 

1191  FORMAT (13x, 

1192  FORMAT (13x, 
1200  FORMAT (13x, 


» ************************************************** ’ ) 

»*  CE-QUAL-RIV1  *’) 

’*  WATER  QUALITY  MODEL  *’) 

>**************************************************’ , /) 


1193  format(5x,70( ’*’ ) ) 

1201  FORMAT ( ’  Start  Time  For  Simulation, (hh. mm) ,  Start 
./,  ’  End  Time  For  The  Simulation  (HH.MM),  End 

. I ,  ’  Lateral  Inflow  Option  ’ , 

./,  ’  (0*  Constant,  1  *  Time  Variable) 


’,F5.2, 
* ,F5.2, 

M5) 


1202  FORMAT ( ’  Temperature  Coeff.  For  Biological  Processes 

./,  ’  Temperature  Coeff.  For  NH3  Reactivity 

/  ’  Temperature  Coeff.  For  Physical  Processes 

./) 


\F8.4, 
*  »F8.4, 
’,F8.4, 


1203  FORMAT (’  Algal  Phosp.  Content  (Fraction  By  Weight) 


»F8 . 4 , 
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./,  ’  Algal  Nitrogen  Content  (Fraction  By  Weight)  =  ’,F8.4, 
./,  ’  Temperature  Coeff.  For  Physical  Processes  *  ’,F8.4, 
./) 

1204  F0RMAT(’  Oxygen/Nitrogen  Equivalence  (g02/gN)  =  ’,F8.4, 


/, 

’  Oxygen/Nitrogen  Ratio  For  Nitrification’ , 

/, 

’  (g02/gN) 

=  ’ ,F8 . 4 , 

/, 

’  Oxygen  Consumption/Plant  Decay  (g02/g  Plant) 

-  ’ ,F8 . 4 , 

/, 

’  Oxygen  Consumption/ Iron  Oxidized  (g02/g  Fe) 

’  Oxygen  Consumption/Manganese  Oxidized’ 

-  ’ ,F8.4, 

/, 

1,  ’ 

(g02/g  Mn) 

’ ,F8 .4, /) 

1205  FORMAT (’  Time  of  Sunrise,  (HH.MM) ,  Dawn  -  \F5.2, 

./,'  ’  Time  of  Sunset,  (HH.MM),  Sunset  *  ’,F5.2, 

./) 

1206  F0RMAT(///,21x, ’Print  Intervals’ ,/ ,21x, 15( ’=’) ) 

1207  F0RMAT(///,22x, ’Plot  Intervals ’,/, 22x, 14( ’=’) ) 

1208  FORMAT ( ’  Interval  (Hours) ’ ,f 10.4, ’  from  Time  (Days)  =  ’,F10.4) 

1209  format(/// ,21x, ’System  Bypass  Options ’,/, 21x,20( ’=’),// , 

. 18x, ’  (0  =  Simulate,  1  =  Bypass)  ’,//,’  Temp  BOD  OrgN  NH3  N03 
.  OrgP  P04  Mn  Fe  DO  CLFM  Algae’ ,/, 12(2x, 13) , ///) 


1210  FORMAT ( 30 (’+’), ’  END  GLOBAL  CONSTANTS  ’,30 (’+’),//) 


FORMAT  STATEMENTS  for  segment  parameters 

1320  FORMAT (3 lx, ’Segment  Parameters’) 

1321  FORMAT( //, lOx, ’Constant  Data  for  Segment  No.  ’,I2,//,10x, 

.  ’NOTE:’,’  These  Data  may  be  Corrected  for  Temp.,  D.O.,  etc.  Durin 
. g’ ,/, 16x, ’Program  Execution’//) 

1324  FORMAT ( ’  Stream  Segment  Temperature,  Deg.  C, ’ ,23x, ’TEMP  =  \F5.2, 

./,  ’  Rate  Coefficient  for  Bottom  Heat  Exchange  (1/DAY)’, 

. 9x, ’  ATB  *  ’ , F5 . 2 , 

•/,  ’  Rate  Coefficient  for  Surface  Heat  Exchange,  W/M**2  DEG. 

.C,’,’  ATS  -  ’ ,F5 . 2 , 

./,  ’  Source /Sink  Term  for  Bottom  Heat  Exchange,  DEG.  C,’, 

. 7x, ’TSINK  *  ’ ,F5 . 2 , 

./,  ’  Variable  Designating  type  of  Heat  Exchange  Solution,’ 

. ,5x, ’  ITEM  =  ’ ,12, 

./,’  1 — Constant  Temp.  Equilibrium  0 — Full  Heat  Balance  ’,///) 

1325  F0RMAT(’  Nitrate  Cone,  at  Which  Denitrification  Rate  is  1/2’, 

./,  ’  Maximum,  mg/1, ’ ,43x, ’NCBDN  =  ’,F5.2, 

./,  ’  D.O.  Cone,  at  Which  Algal  Decay  Rate  is  1/2  Maximum’, 

./,  ’  mg/1, ’ ,51x, ’KOALDK  *  \F5.2, 

./,  ’  D.O.  Cone,  at  Which  the  Rate  of  Denitrification  is’, 

./,  ’  Reduced  by  1/2,  MG/L, ’ ,35x, ’KOCBDN  *’,F5.2, 

./,  ’  D.O.  Cone,  at  Which  CBOD  Decay  rate  is  1/2  Maximum’ , 

./,  ’  Rate,  mg/1’ ,47x, ’R0CB1  -  \F5.2, 

./,  ’  D.O.  Cone,  at  Which  Nitrification  Rate  is  1/2’, 

./,  ’  Maximum,  mg/1 ’,46x,’KON  -  ’,F5. 2,///) 

1328  F0RMAT(’  Rate  Coefficient  for  Stream  Reaeration  Rate’,17x, 

.’AG  -  ’ ,F5.2, / , 

.’  Exponent  of  Velocity  in  Stream  Reaeration  Rate,’, 

.’  Formulation’ , lx, ’El  *  ’,F5.2 ,/, 

. ’  Depth  Exponent  in  Stream  Reaeration  Formulation, ’ , 
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E2  -  ’ ,F5.2 ,/, 

. ’  Coefficient  in  the  Tsivoglou-Wallace  Reaeration’ , 

Equation’,/,’  1/ft, • ,53x, ’TSIV  «  \F5.2 ,/, 

.’  Specific  Rate  Coefficient,  Uncorrected,  for’, 

./’  Denitrification  l/day’,37x,’  ADN  *  ’,F5.2 ,/, 

.’  Specific  Rate  Coefficient,  Uncorrected,  for’ ,/ , 

.’  Nitrification  l/day’,39x,’  AKN  =  ’,F5.2 ,/, 

Specific  Rate  Coefficient,  Uncorrected,  for’,/, 

. ’  Ammonia  Adsorption  1/day’ ,34x, ’AKNX  =  ’,F5.2 ,/, 

.’  Specific  Rate  Coefficient,  Uncorrected,  for’,/. 

Phosphate  Adsorption,  1/day’ ,31x, ’AP04  «  ’,F5.2 ,///) 

1330  FORMAT ( ’  Specific  Rate  Coefficient  For  Iron  Oxidation,  1/day,’, 

.  4x, ’  KFEDK  -  ’ ,F5 . 2 , / , 

.’  Rate  Coefficient  For  Coliform  Mortality,  1/day,’, 

7x  *  KCOLIDK  *  9  F5  2  / 

.’  Sediment  Oxygen  Demand,  gr. /m**2’ ,27x, ’SOD  =  ’,F5.2 ,/, 

. ’  Total  Nitrogen  Cone .  at  Which  Algal  Growth ’ , / , 

.’  Rate  is  Reduced  by  1/2,  mg/1’ ,28x, ’KNP00L  =  \F5.2 ,/, 

.’  Phosphorous  Cone,  at  which  Algal  Growth  Rate  Reduced  by’,/, 

.’  1/2,  mg/1’ ,48x, ’KP04X  *=  *,F5.2,/ 

.’  Sediment  Denitrification  Rate’ ,28x, ’KDSED  =  ’,  F5.2 ,/) 

1331  FORMATC  Macrophyte  Density  on  Channel  Surfaces,  g/m**2,’, 

MACROB  »=  ’  ,F5.2 ,/, 

.’  Specific  Macrophyte  Growth  Rate,  1 /day ’ , 18X, ’MACGRO  =  ’,F5.2 ,/, 
.’  Specific  Macrophyte  Decay  Rate,  1/day’ , 19X, ’MACDKY  =  ’,F5.2 ,//, 
.’  Algal  Growth  Rate,  mg/l*day’ ,29X, ’KALGRO  =  ’,F5.2 ,/, 

.’  Algal  Decay  Rate,  mg/l*day’ ,30X, ’KALGDK  =  ’,F5.2 ,//, 

.’  D.O.  Cone.  Below  Which  Oxidation  of’,/, 

.’  Iron  and  Manganese  Do  Not  Occur,  mg/1’ , 19X, ’OXIDAT  *  ’,F5.2 ,/, 
.’  Specific  Rate  Coefficient  Manganese  Oxidation,  1/day,  ’, 

KMNDK  =  ’ ,F5.2 ,/) 


1332  FORMATC  Empirical  Coefficient  Reflecting  Thickness  of’, 
.’Boundary  Layer  BK  =  ’,F5.2 ,/, 

.’  Rate  Coefficient  Carbonaceous  Oxygen  Demand,  l/day’,9X, 

.’AK1  -  ’ ,F5.2, / , 

.’  Light  Intensity  at  Which  Photosynthesis  Rate  Reduced  by’/, 

.  ’  1/2, ’ ,52X, ’  KLITE  =  ’ ,F5.2 ,/ 

.’  Rate  Coefficient  for  Org-N  Decay  To  NH3’,18X,’  ACK  =  ’,F5.2) 


c  # 

c#  Problem  with  QWIND  (xx) 
c# 

1333  FORMATC  Surface  Light  Intensity  at  Local  Noon, 

. HNEFSW  «  ’ ,F8.2 ,/, 

. ’  Is  Wind  Driven  Reaeration  Used  for  Segment  ? , ’ , 
.’  T  or  F , ’ , ’ QWIND ( ’ , 12 , ’ )  -  ’ ,L2 ,/) 


1334  FORMATC  Non-algal  Portion  of  Light  Extinction  Coefficient’ ,5x, 
LAMBDAO  «=  ’,F5.2 ,/, 

Linear  Algal  Self  Shading  Coefficient’ , 18x, ’LAMBDA1  -  \F5.2 ,/, 
Nonlinear  Algal  Self  Shading  Coefficient ’, 15x, ’LAMBDA2  =  ’, 
.F5.2 ,/, 

Conversion  Factor  From  Algae  To  Chlorophyll, ’, llx, 

ALPHAO  «  ’ ,F5 . 2 , / / ) 


1335  FORMATC  Settling  Rate  for  Organic  Nitrogen, ’ ,22x, ’  KNSET  -  ’, 

. 1F5 . 2 ,  / , 

.’  Benthal  Source  Rate  for  Ammonia,  g/m**2 ’ , 19x, ’ABSR  *  ’,F5.2 ,/, 
.’  Settling  Rate  for  CBOD,  m/day’ ,27x, ’CBODSR  *  ’,F5.2 ,/, 

.’  Fraction  of  Algal  and  Macrophyte  Decay’,/, 
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Which  Goes  to  CBOD,  \37x, ’FCBOD  *  ’,F5.2 //) 

1336  FORMAT  ( ’  Decay  Rate  For  Organic  -  P,’,30x,’  KPDK  -  F5.2 ,/, 

Settling  Rate  Coefficient  For  Org-P, ’ , 20x, ’  KPSET  =  ’,F5.2 ,/, 

Benthic  Source  Term  for  Dissolved  P,’,19x,’  BENP04  =  ’ ,F5.2 ,//) 

STOP 

END 

Q  **************************************************************************** 

C  SUBROUTINE  SEG 

Q  **************************************************************************** 

SUBROUTINE  SEG ( DX1 , QO , AO , BO , ELO , Q , A , B , EL , QLC , QLT , C , DC , K , S INK , BC , 

CP , CLC , CLT , SINI ,MNODE , ITO , IT1 , IT2 , JT , T , DISP , F , NS , 

QWIND) 

INCLUDE  ’RIV1Q.CMN’ 

DIMENSION  DXl(MNODE) ,Q0 (MNODE) , AO (MNODE) ,BO(MNODE) ,EL0 (MNODE) , 

*  Q (MNODE) , A (MNODE) ,B (MNODE) , EL (MNODE) , QLC (MNODE) , 

QLT (MNODE) ,C(12, MNODE) ,DC(12 , MNODE) ,K(12, MNODE) , 

SINK ( 1 2 , MNODE ) ,BC(12) ,CP(12) ,JT(NS) ,T(50,1) , 

CLC ( 1 2 , MNODE ) , CLT ( 1 2 , MNODE ) , DISP (MNODE ) , F (MNODE , 6 ) 
c  **************************************************************************** 

LOGICAL  JUNCT 

DATA  THETA/ 0.55/ 

RTHETA  =  (THETA  -  1 .) /THETA 
L  *  IT2  +  1 
IT  =  MAX0(1,IT1) 

IF  (DT.EQ.O. )  GO  TO  17 
ULL  =  QO (MNODE) /AO (MNODE) 


Calculate  the  derivative  at  the  first  node 
**************************************************************************** 

DO  -  DT/2.*(Q0(1)/A0(1)  +  Q(l)/A(l)) 

DEN  *  1 . 5*DX1 (1 )  +  2 . *D0 
B1  =  1 . 5*DX1 ( 1 ) / (D0*DEN) 

B2  -  3 . *D0/ (DX1 ( 1 )*DEN) 

B3  *  DO /DEN 

Relfect  boundary  conditions  at  node  1  when  there  is  no  inflow 
at  the  upstream  boundary.  (1  cms  or  86400  cubic  meters/day  is 
considered  no  flow) 

**************************************************************************** 

DO  63  N  -  1,12 
IF(CP(N) )  THEN 

IF(Q(1).LT. 86400.)  THEN 
BC(N)=C(N,2) 

END  IF 

DC(N,1)  -  B1*(C(N, 1 )-BC(N) )  +  B2*(C(N,2)-C(N,1) )-B3*DC(N,2) 

END  IF 
63  CONTINUE 
GO  TO  14 

Place  initial  concentrations  into  tributary  data  transfer 
array  (t-array) 

**************************************************************************** 
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17  IF  (IT1.EQ.0)  GO  TO  14 


DO  15  LL  =  IT1.IT2 
I  =  JT(LL)  -  1 

DO  15  N  *  1,12 

IF  (.NOT.  CP(N)  )  GO  TO  15 
T(N  +  26, LL)  =  C(N,I) 

T(N  +  38 ,LL)  -  DC(N, I) 

15  CONTINUE 

Initialize  nutrient  depletion  parameters 
**************************************************************************** 

14  CONTINUE 


.  NODE  COMPUTATION  . 

"DO  470"  -  NODE  MARCH.  Certain  program  blocks  are  bypassed  for 
DT=0  (INITIAL  CONDITIONS)  and  1=1  (BOUNDARY  CONDITIONS), 
loop  marches  through  nodes  in  an  upstream  direction  and 
cycles  thru  every  node  in  the  system  once  during  each  time  step . 
**************************************************************************** 


DO  470  II  =  l.MNODE 
LII  =  II 

I  =  MNODE-II  +  1 
UUR  =  Q(I)/A(I) 

UUL  =  UUR 

IF(I.NE.l)  UUL  =  Q(I-l) /A(I-l) 

Check  to  see  if  we  have  an  initial  or  boundary  condition 
**************************************************************************** 

IF  (DT.EQ.O. .OR.I.EQ.l)  GO  TO  150 

Check  to  see  if  node  is  at  a  junction,  if  not  GO  TO  STATEMENT  20 
**************************************************************************** 

IF  (L.LE.IT)  GO  TO  20 
IF  (JT(L-l) .NE.I)  GO  TO  20 

Calculate  dilution  ratios  for  tributary  junctions 
**************************************************************************** 


L  =  L-l 
JUNCT  =  .TRUE. 

D  =  T(25,L)/Q(I  +  1) 

DD  =  T(26 ,L)*D/UUR 
GO  TO  13 

20  JUNCT  =  .FALSE. 

13  ULL  =  Q0(I-1) /A0(I-1) 

DX  =  DXl(I-l) 

DUDX*  (ULR-ULL)/DX 
DADX*  (A0 ( I )  -  A0(I-1) ) /DX 
DADX2=(A(I)  -  A(I-l) ) /DX 
DDISP=  (DISP(I)  -  DISP(I-l) ) /DX 
DDA1  =  DISP(I) /A0(I)*DADX  +  DDISP 
DDA2  =  DISP(I) /A(I)*DADX2  +  DDISP 

**************************************************************************** 
NOTE:  Above  will  not  work  for  homogeneous  channel  or 
and  uniform  dispersion.  Also,  RDDA  not  used  so  commented 
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C  out.  "US"  is  the  characteristic  velocity  of  the  constituent 

C  concentration  and  "E"  is  the  resulting  courant  number. 

C  These  parameters  are  computed  once  for  each  node  during  each 

C  time  step. 

C  **************************************************************************** 


US  =  (UUR  +  ULR-DDA1 -DDA2 ) / ( 2 .  +  DT*DUDX) 

E  *  US*DT/DX 
EC  -  l.-E 

AS  -  (A(I)  +  A0(I-1)*E  +  A0(I)*EC)/2. 

QLA  -  (QLC(I)*(1 .  +  EC)  +  QLC(I-1)*E) / (2.*AS) 
DQLA*  ( (QLC(I)-QLC(I-l) ) /DX-QLA  *  DADX)/AS 
QLB  -  (QLT(I)*(1 .  +  EC)  +  QLT(I-1)*E) / (2.*AS) 
DQLB=  ( (QLT(I)-QLT(I-l ) ) /DX-QLB  *  DADX) /AS 
GO  «  1 . -DT*DUDX 


C  "Al"  thru  "A4"  are  the  coefficients  for  the  polynomial  estimator 
C  of  the  concentration  at  node  I  and  time  step  J 


Al  =  E*E*(3 . -2 . *E) 

A2  *  1 .  -Al 
A3  -  E*E*EC*DX 
A4  -  -E*EC*EC*DX 

C  "US"  is  redefined  as  characteristic  velocity  of  the  spatial 

C  derivative  of  the  constituent  concentration  and  "ED"  is  the 

C  resulting  Courant  number.  They  are  computed  once  for  each  node 
C  during  each  time  step. 

C  **************************************************************************** 

US  *  US  -  DDISP 
ED  *  US  *  DT  /  DX 
EDC  =  1.  -  ED 

C  "B1  thru  B4"  are  the  coefficients  of  the  polynomial  estimator 

C  of  the  spatial  derivative  at  node  I  and  time  step  J. 

C  **************************************************************************** 

B1  =  6.*ED*(-EDC)/DX 
B2  -  -B1 

B3  -  ED*(ED-EDC-EDC) 

B4  -  EDC* (EDC-ED-ED) 

C  Correct  light  extinction  coefficient,  kext,  for  algal  self-shading 

C  ref:  qual2e  manual  affects  both  algae  and  macrophytes 

Q  *****************************************************>*********************** 

KEXT  =  LAMBDAO (IBRANCH)  +  LAMBDA1 ( IBRANCH ) *ALPHA0 ( IBRANCH ) * 

*  C ( 1 2 , I )  +  LAMBDA2 (IBRANCH)* (ALPHAO (IBRANCH) *C( 12, I)) 

*  **2/3 


C 

C  Average  value  of  D.O.,  N03,  NPOOL,  and  P04 

c  **★★*★**★*★★*★**★★★****★★***★****************★********★*******************★* 

C 

DOX  -  C(10,I-1)*E  +  C(10,I)*EC 
IF  (DOX. LT. 0.0)  DOX  =  0.0 
N03NX  -  C(5,I-1)*E  +  C(5 ,I)*EC 

C  NPOOL  is  the  sum  of  NH3  and  N03 

C  ★******‘********,**********************************************>**>*>*****‘******* 
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NPOOL  -  C(A ,1-1 )*E  +  C(A ,I)*EC  +  N03NX 


**************************************************************************** 


POAX  =  C(7 , 1-1 )*E  +  C(7 ,I)*EC 

Compute  nutrient  limitation  factors  to  be  used  in  computing 
algal  growth  rate  for  non-boundary  and  non- initial  conditions 

Nitrogen  limitation  factor  in  algae  growth 
**************************************************************************** 

FN  -  NPOOL/ (NPOOL  +  KNPOOL(IBRANCH) ) 

POA  limitation  factor  in  algae  growth 

**************************************************************************** 
FP  -  POAX/ (POAX  +  KPOAX(IBRANCH) ) 

GO  TO  1A0 

Value  of  D.O.,  N03,  NPOOL,  and  POA  used  for  initial  and 
boundary  conditions 

**************************************************************************** 

150  DOX  -  C(10,I) 

N03NX=  C(5 ,1) 

NPOOL  is  sum  of  NH3  +  N03 

**************************************************************************** 


NPOOL-  N03NX  +  C(A,I) 

POAX  =  C(7 ,1) 

Correct  light  extinction  coefficient,  KEXT,  for  algal  self-shading 
affects  both  algae  and  macrophytes 

**************************************************************************** 

KEXT  =  LAMBDAO ( IBRANCH )  +  LAMBDA1 (IBRANCH )*ALPHA0( IBRANCH)* 

*  C(12,I)  +  LAMBDA2(IBRANCH)*(ALPHA0 (IBRANCH)*C( 12 ,1) ) 

*  **2/3 

Nitrogen  limitation  factor  in  algae  growth 
**************************************************************************** 


FN  -  NPOOL/ (NPOOL  +  KNP00L ( IBRANCH) ) 

POA  limitation  factor  in  algae  growth 

**************************************************************************** 

FP  -  POAX/ (POAX  +  KP0AX( IBRANCH)) 

Compute  hydraulic  depth  for  current  node 
**************************************************************************** 


1A0  H  -  A(I)/B(I) 

Statements  below  shut  down  algal  growth  in  darkness,  SINI.LE.0.0 
or  lack  of  nutrients,  (POAX  OR  NPOOL  .LE.  0.0) 
**************************************************************************** 
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IF  (SINI.LE.O.)  ALGRO  -  0.0 


IF  (PO4X.GT.0.0)  GO  TO  310 
ALGRO  -  0.0 

310  IF  (NPOOL.GT.O.O)  GO  TO  315 
ALGRO  *  0.0 

Temp  set  equal  to  C(1,I)  for  use  in  temperature  correction 
equations  below 

**************************************************************************** 
315  '  IF  ( . NOT . CP ( 1 ) ) GO  TO  319 

TEMP  -  C(1,I) 

The  following  three  statements  are  temperature  corrections  for 
various  types  of  reactions 

**************************************************************************** 


319  TBIO  =  TBIOS**(TEMP-20 . ) 

TNH3  *  TAMMON** (TEMP-20 . ) 

TPHYS  *  TPHYSI** (TEMP-20. ) 

DOSAT  is  the  saturation  value  of  D.O.  as  a  function  of  water  temp 
**************************************************************************** 


DOSAT-14 . 652+(-0 . 41022+(0 . 007991-0 .000077774*TEMP)*TEMP)*TEMP 

Algae  are  light  limited  only  in  this  version 
**************************************************************************** 


IF  (SINI.LE.O.)  GO  TO  330 

If  you  want  to  include  phosphate  and  nitrogen  limitation  to 
algal  growth,  comment  out  the  above  statement  and  uncomment 
the  one  below 

**************************************************************************** 


320  IF  (SINI.LE.O. .OR. P04X.LE. 0.0. OR. NPOOL.LE. 0.0)  GO  TO  330 

Light  limitation  under  equilibrium  temperature  approach. 

NOTE:  DAWN,  SUNSET,  HNEFSW  must  be  specified  in  constant  list 
for  this  case. 

SWALG  is  short  wave  light  intensity  at  surface. 
**************************************************************************** 


IF ( ITEM ( IBRANCH) . EQ . 1 ) THEN 
SWALG*  HNEFSW(IBRANCfl)*SINI 
ELSE 

SWALG*  HNEFSW (IBRANCH) 

END  IF 

Algal  growth  rate  (ALGRO)  defined  in  terms  of  algal  concentration 
computed  in  the  previous  time  step,  (C(11,I),  corrected  for  light  and 
nutrient  availability 

**************************************************************************** 

ALGRO  -  C(12,I)*KALGRO(IBRANCH)*(l/ (KEXT*H) )* 

LOG( (ELITE ( IBRANCH ) + SWALG ) / ( ELITE ( IBRANCH )+SWALG* 
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EXP ( -KEXT*H) ) ) *FN*FP 

C  Macrophyte  growth  rate,  MGRATE,  defined  in  terms  of  reach 
C  dependent  parameter,  MACO,  corrected  for  light  but  not  nutrients, 

P  rj  AQ  1 

c  **************************************************************************** 


IF(KEXT.GE.0.01)MGRATE  -  MACROB ( IBRANCH )*MACGRO( IBRANCH) 

*SWALG* ( 2 . /KEXT  +  (B(I)-2. /KEXT)* 
EXP(-KEXT*H))/A(I) 


IF (KEXT .LT .0.01 )MGRATE  -  MACROB ( IBRANCH ) *MACGR0 ( IBRANCH ) * 

SWALG* (H* ( 2 . -KEXT*H)  +  B(I)* 
EXP(-KEXT*H))/A(I) 


C 

C 


Define  P  as  the  fraction  of  N03  in  npool  (NPOOL  *  NH3  +  N03) 
**************************************************************************** 


C 

C 

c 

c 


c 

c 

c 

c 


c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


330  IF  (NPOOL  .GT.  0.)  P  =  N03NX/ NPOOL 


When  D.O.  drops  to  zero  algal  decay,  MAC.  DECAY,  aerobic 
hydrolysis  of  ORG-N,  and  nitrification  cease.  Therefore  ALGADK, 

MDEATH ,  Kl,  KIN,  and  KN  set  to  zero  at  380.  j  j 

**************************************************************************** 


IF  (D0X.LE.1.E-06)  GO  TO  380 

If  D.O.  not  zero  go  ahead  and  compute  algal  death  rate  (ALGADK), 

Kl,  and  KN,  and  reach  dependent  macrophyte  death  rate  (MDEATH). 

Correct  algal  death  rate  (ALGADK)  for  D.O.  availability 
**************************************************************************** 


ALGADK  =  C( 12 ,I)*KALGDK(IBRANCH)*(DOX/ (D0X+K0ALDK( IBRANCH) ) ) 

Correct  macrophyte  death  rate  (MDEATH)  for  D.O.  availability 
**************************************************************************** 

MDEATH  «  MACROB ( IBRANCH) *MACDKY (IBRANCH) *(B (I)  +  H  +  H)/((l.  + 

KOALDK ( IBRANCH )/ D0X ) *A ( I ) ) 

Correct  rate  coefficient  for  CB0D  decay  (AK1)  for  temperature  and 
D.O.  availability 

**************************************************************************** 


Kl  -  AK1( IBRANCH )*TBI0/(1.+  K0CB1 (IBRANCH) /DOX) 


Correct  rate  coefficient  for  ORG-N  (ACK)  for  temperature  and  D.O. 
**************************************************************************** 


KIN  =  ACK ( IBRANCH )*TBI0/ (1+  K0CB1 (IBRANCH) /DOX) 

Correct  rate  coefficient  for  nitrification  (AKN) ,  temperature,  and 
D.O.  Availability 

**************************************************************************** 

KN  -  AKN ( IBRANCH ) *TNH3/ (1 .+  K0N( IBRANCH) /DOX) 

Correct  sediment  oxygen  demand  for  temperature  and  channel  depth 
**************************************************************************** 


KS0D  -  (SOD (IBRANCH) *TBI0)/H 
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KBENP04  -  (BENP04 (IBRANCH) *TBIO)/H 


C  Reaction  constants  for  iron  and  manganese  not  corrected  for 
C  temperature  see  RIV1-Q  documentation 

Q  **************************************************************************** 

KMNX  -  KMNDK ( IBRANCH ) 

KFEX  «  KFEDK( IBRANCH) 

GO  TO  390 

C  If  D.O.  is  zero,  set  ALGADK,  MDEATH ,  K1 ,  KIN,  and  KN  to  zero. 

Q  **************************************************************************** 

380  ALGADK  -  0.0 
MDEATH  -  0.0 
K1  =  0.0 
KIN  -  0.0 
KN  »  0.0 

IF (N03NX . LT . 1 . 0E-06 .AND . KNCBDN ( IBRANCH) . LE . 1 . 0E-06 ) THEN 
WRITE (OUT, 389) 

389  FORMAT (IX, ’ERROR:  N03X  &  KNCBDN  BOTH  0.0,  KDN  IS  UNDEFINED’) 

STOP 

ENDIF 

C  Correct  rate  coefficient  for  denitrification  (ADN  and  KDSED) , 

C  TEMP,  D.O.  inhibition,  and  Nitrate  availability 

C  **************************************************************************** 

390  KDN  -  ADN ( IBRANCH )*TBIO*KOCBDN( IBRANCH) / (DOX  + 

KOCBDN( IBRANCH) )*N03NX/ (N03NX  +  KNCBDN ( IBRANCH ) ) 

KDSED ( IBRANCH) =  KDSED ( IBRANCH )*TBIO*KOCBDN( IBRANCH) / (DOX  + 

KOCBDN( IBRANCH) )*N03NX/ (N03NX  +  KNCBDN ( IBRANCH) ) 


C  Correct  rate  coefficient  for  NH3  adsorption  for  temperature 
C  **************************************************************************** 

KNX  =  AKNX( IBRANCH )*TPHYS 

C  When  the  D.O. ,  (DOX),  level  drops  below  a  specified  value  (OXIDAT) 

C  iron  and  manganese  oxidation  stops,  KMNX  and  KFEX  set  to  0.0. 

C  **************************************************************************** 

IF  (DOX  .LT.  OXIDAT (IBRANCH))  KMNX  *  0. 

IF  (DOX  .LT.  OXIDAT (IBRANCH))  KFEX  -  0. 

C 

C  This  code  segment  (DOWN  TO  391)  computes  reaeration  coefficients 

c  ************************************************************************ 

AGC  -  AG(IBRANCH)*3 . 79726E-05**E1 ( IBRANCH ) *0. 3048**E2( IBRANCH) 

K2  -  AGC*ABS(UUR)**E1 (ibrANCH) /H**E2 (IBRANCH)*TPHYS 

IF  (I.EQ.l  .OR.  DT.EQ.0.)  GO  TO  391 

C  Compute  Tsivoglou  reaeration  coefficient,  K2,  if  TSIV  .gt.  0. 

C  otherwise  use  exponential  reaeration  coefficient,  K2,  computed 

C  above 

Q  **************************************************************************** 


IF  (TSIV (IBRANCH) .GT.0. )  THEN 
DELTAH  -  EL (I)  -  EL(I-l) 
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K2  -  TSIV(IBRANCH)/ 0.3049  *  TPHYS  *  ABS(DELTAH)*0.5* 

ABS (  UUR  +  UUL)/DX 

END  IF 

391  CONTINUE 

C  **************************************************************************** 

q  End  reaeration  routines 

Q 

C  Correct  P04  adsorption  rate  coefficient  for  temperature 

C  ************************************************************************** 

KP04DK  *  AP04 ( IBRANCH) *TPHYS 

Q 

C  Use  equilibrium  temperature  approach  if  ITEM=1  (in  constant  list) 

C  conversion  factor  changes  units  from  w/m2-c  to  per  day  (0.0Z064* 

c  ******i2*UiiSiii22********************************************************* 

C 

IF (ITEM (IBRANCH) .EQ.1)THEN 
KTS-ATS ( IBRANCH) *0 . 02064 /H 
KTB-ATB  ( IBRANCH)  *TPHYS 
END  IF 


C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 


C 

C 


"DO  460"  Loop  computes  decay  constants  as  well  as  kinetic  constants 
for  sources  or  sinks  for  a  given  node .  Constituent  concentrations 
corrected  for  decay,  sources  or  sinks  are  then  computed  .... 

**************************************************************************** 


DO  460  N  -  1,12 

IF  ( .NOT . CP(N) )  GO  TO  460 

IF  (DT.EQ.0. .OR.I.EQ. 1)  GO  TO  450 

KS  -  K(N,I-1)*E  +  K(N,I)*EC 

DK  -  (K(N,I)-K(N,I-1))/DX 

SINKS  -  SINK(N,I-1)*E  +  SINK(N,I)*EC 
DSINK  -  (SINK(N,I)-SINK(N ,1-1 ) ) /DX 

450  GOTO  (1,2,3,4,5,6,7,8,9,10,11,12) ,N 

**************************************************************************** 

TEMPERATURE 

Decay  rate  and  source/sink  term  for  temperature,  K(1,I), 
**************************************************************************** 


K(1,I) 
SINK( 1,1) 


0. 

0. 


Equilibrium  temperature  simulation  used  if  ITEM-1 
Full  heat  balance  simulation  used  if  ITEM*0 

If  ITEM  not  equal  to  0  or  1  heat  exchange  does  not  occur  , , 

**************************************************************************** 


IF  ( ITEM ( IBRANCH ) .NE. 1  . AND. ITEM( IBRANCH) .NE.0) GO  TO  480 
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IF ( ITEM ( IBRANCH ) . EQ . 1 ) THEN 
K(1 ,1)  -  KTS  +  KTB 

SINK(1 ,  I)  =  KTS  *  TEMP  +  KTB  *  TS INK (IBRANCH) 

GO  TO  480 
END  IF 
C 

DEPTHO  *  H  *  3.281 
ELEVO  «EL(I)*3.281 

C  Full  heat  balance  approach  (ITEM=*0;  default  value)  requires  calling 
C  SUBROUTINES  HEAT  and  HTFLUX 

C  **************************************************************************** 

IF (ITEM (IBRANCH) . EQ . 0 . ) THEN 
CALL  HEAT 

IF  (JTIME  .NE.  1)  THEN 
K(1 , I)  =  KTB 

SINK(1 , I)  =  DTEM/DT  +  KTB  *  TSINK( IBRANCH) 

END  IF 
GO  TO  480 
END  IF 
C 

C  **************************************************************************** 
C  End  of  Temperature  Computation  Segment 

C  CBOD 

C  **************************************************************************** 

C  K(2,I)  accounts  for  CBOD  exertion,  denitrification  and  CBOD 
C  settling  SINK(2,I)  accounts  for  ALGAE  and  MACS.  Converted  to  CBOD 
C  upon  death 

C  **************************************************************************** 

2  K(2 , I)  =  K1  +  KDN  +  CBODSR( IBRANCH) 

SINK(2 , I)  =  OPDECY  *  ( (FCBOD( IBRANCH)  *  DOX  + 

KOCB1 (IBRANCH) )/(DOX  +  KOCB1 (IBRANCH) ) )* 

(ALGADK+MDEATH) 

GO  TO  480 
C 

C  **************************************************************************** 
C  ORGANIC  NITROGEN 

C  **************************************************************************** 

c 

C  K(3,I)  accounts  for  decay  of  ORG-N  to  NH3  (KIN)  and  loss  from 
C  denitrification  (KDN) 

C  SINK(3,I)  accounts  for  Organic-N  produced  by  algal  and  macrophyte 
C  decay  model  assumes  ALGAE  and  macs  initially  produce  100%  ORG-N 
C  **************************************************************************** 
C 

3  K(3,I)  =  KIN  +  KDN  +  KNSET ( IBRANCH ) /H 
SINK(3 , I)  =  ANCONT* (ALGADK+MDEATH) 

CP (4)  -  .TRUE. 

GO  TO  480 
C 

C  **************************************************************************** 
C  AMMONIA  NITROGEN 

C  **************************************************************************** 

C  K(4,I)  represents  NH3  loss  due  to  adsorption  onto  sediment  and 
C  nitrification. 

C  SINK(4,I)  represents  net  NH3  loss  by  algal  and  macrophyte  uptake 
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c 

A  K(A,I)  -  KN  +  KNX 

SINK(4,I)  -  (KIN  +  KDN)*C(3 ,I)-ANCONT*( (1 . -P)* 

( ALGRO+MGRATE ) ) - (ALGADK+MDEATH) 

IF(AKN(IBRANCH) .GT.0.0)CP(5)  =  .TRUE. 

GO  TO  480 

C  **************************************************************************** 

r  NITRATE  NITROGEN 

C  (NITRITE  NOT  EXPLICITLY  INCLUDED  IN  DECAY  MECHANISM) 

C  ********************************************************************** 

c 

C  K(5,I)  represents  N03  loss  via  denitrification  in  the  sediment 
C  SINK(5 ,1)  represents  nitrification  in  the  water  column, 

C  N03  loss  by  denitrification  in  the  water  column,  and  plant  uptake 

c  ****SLSi*£***************************************************************** 

C 

5  K(5,I)  -  KDSED ( IBRANCH ) 

SINK(5 ,1)  =  KN*C( 4, I )-ANCONT*P*( ALGRO+MGRATE )-ONEQUI* 

KDN*C (2,1) 

GO  TO  480 

Q  **************************************************************************** 

C  ORGANIC  PHOSPHATE 

Q  **************************************************************************** 

Q 

C  K(6,I)  represents  loss  of  ORG-P  by  decay  to  P04  and  settling  of 

C  ORG-P  SINK(6,I)  represents  gain  of  ORG-P  by  algal  and  mac  decay. 

C  **************************************************************************** 

C 

6  K(6 ,1)  *  KPDK( IBRANCH)  +  KPSET( IBRANCH) 

SINK(6,I)  =  APC0NT*( ALGADK+MDEATH) 

GO  TO  480 

C  **************************************************************************** 

C  DISSOLVED  PHOSPHATE  .^a.****** 

C  **************************************************************************** 
Q 

C  SINK(7,I)  represents  uptake  of  P  by  algal  and  macrophyte  growth 

q  **************************************************************************** 

7  K(7,I)  -  0.0 

SINK(7 ,1)  -  KBENP04  -  APCONT* (ALGRO+MGRATE) 

GO  TO  480 

C  **************************************************************************** 

C  DISSOLVED  MANGANESE 

Q  ******************★***********************************,****,***,fc,************* 

£ 

C  K(8,X)  represents  inn  loss  by  oxidation.  Reaction  not  corrected 
C  ****^2******i*************************************************************** 

8  IF  (C(10,I)  .GT.  OXIDATf IBRANCH))  THEN 

K(8 , I)  -  KMNDK( IBRANCH) 

ELSE 

K(8,I)  -  0.0 
END  IF 
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SINK(8 ,1)  *  0.0 
GO  TO  480 

★  it********************************** 

DISSOLVED  IRON 

**************************************************************************** 

K(9,I)  represents  fe  loss  by  oxidation.  Reaction  rate  constant 
not  corrected  for  temperature. 

**************************************************************************** 


9  IF  (C(10,I)  .GT.  OXIDAT ( IBRANCH) )  THEN 

K(9,I)  «  KFEDK( IBRANCH) 

ELSE 

K(9,I)  =  0.0 

END  IF 

SINK(9,I)  =  0.0 

GO  TO  480 
C 

Q  **************************************************************************** 

C  DISSOLVED  OXYGEN 

C  **************************************************************************** 
C 

C  K(10,I)  represents  loss  of  DOX  to  the  atmosphere  by  reaeration. 

C  SINK(10,I)  represents  gain  of  DOX  by  photosynthesis  and  reaeration: 

C  loss  of  DO  from  fraction  of  algae  and  macrophytes  oxidized 
C  immediately  ( 1-FCB0D( IBRANCH ) ) 

C  **************************************************************************** 

10  K( 10 , I)  *  K2 

SINK( 10 , I)  *  (ONEQUI*P  +  OPDECY) * ( ALGRO+MGRATE ) -OPDECY* 

(DO X/ (KOALDK ( IBRANCH) +D0X) ) * ( 1 -FCBOD ( IBRANCH) ) * 

( ALGADK+MDEATH ) +K2*D0SAT  -  0NITRI*KN*C(4,I)-K1* 

C ( 2 , I ) -OMNDEC*KMNX*C (8,1) -OFEDEC*KFEX*C (9,1) 

-  KSOD 

GO  TO  480 

c  **************************************************************************** 

C  COLIFORM  BACTERIA 

C  **************************************************************************** 

c 

C  K(11,I)  represents  loss  of  fecal  coliforms  due  to  die-off, 

C  KCOLIDK,  corrected  for  temp 

C  **************************************************************************** 

11  K(11,I)  *  KCOLIDK (IBRANCH)  *  TBIO 
SINK(ll.I)  =  0.0 

GO  TO  480 

C  **************************************************************************** 
C  ALGAL  AND  MACROPHYTE  PRODUCTION  AND  DECAY 

C  **************************************************************************** 

c 

c 

C  K(12,I)  represents  combined  effect  of  growth  and  decay  on  algae, 

C  corrected  for  D.O. ,  light  and  nutrient  availability 

Q  **************************************************************************** 


12  K( 12 , I)  -  (KALGRO(IBRANCH)*(l/ (KEXT*H) )*LOG( (KLITE (IBRANCH) 

+SWALG) / (KLITE ( IBRANCH) +SWALG*EXP ( -KEXT*H) ) ) ) *FN* 
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FP- (KALGDK ( IBRANCH ) *DOX / ( DOX+KOALDK ( IBRANCH ) ) ) 

SINK( 12 , I)  «  0.0 

GO  TO  480 

**************************************************************************** 

END  CONSTITUENT  REACTION  ROUTINES 

**************************************************************************** 

Statements  which  compute  average  values  of  reaction  rates  and  sinks 
across  a  time  step  for  each  constituent 
**************************************************************************** 


IF  (DT.EQ.O. .OR.I.EQ. 1  )  GO  TO  460 
KS  *  (K(N,I)  +  KS ) / 2 . 

SINKS  -  (SINK(N , I)  +  SINKS) /2. 


Final  calculation  of  the  constituent  concentration  and  spatial 
derivative  for  all  nodes.  Statement  below  checks  to  see  if 
node  is  a  junction  point.  IF  SO  GO  TO  38. 
**************************************************************************** 


IF  (JUNCT)  GO  TO  38 

CO  =  A1*C(N,I-1)  +  A2*C(N,I)  +  A3*DC(N,I-1)  +  A4*DC(N,I) 
CCL  =  CLC(N,I)-C0 
CCM  =  CLT(N,I)-C0 
IF(QLA.LE.O. )  CCL  *0. 

IF(QLB.LE.O. )  CCM  =0. 

DC(N,I)=(B1*C(N,I-1)+B2*C(N,I)+B3*DC(N,I-1)+B4*DC(N,I) ) 

* ( G0-DT* (KS+QLA+QLB ) ) +DT* (DSINK-C0*DK+CCL*DQLA 
+CCM*DQLB ) 


C(N,I)  is  the  concentration  of  constituent  N  at  (non- junction) 
node  I,  time  increment  J,  corrected  for  sources,  sinks  and  lateral 
inflow 

**************************************************************************** 


C(N,I)  *  C0*(1-DT*KS)  +  (SINKS  +  CCL*QLA+CCM*QLB ) *DT 
GO  TO  465 

C(N,I)  is  the  concentration  of  constituent  N  for  (junction)  nodes 
corrected  for  sources,  sinks  and  lateral  inflow 
**************************************************************************** 

38  COO  -  T(N  +  26, L) 

DC00  *  T(N  +  38, L) 

CO  -  A1*C(N,I-1)  +  A2*C00  +  A3*DC(N,I-1)  +  A4*DC00 
CCL  -  CLC(N,I)-C0 
CCM  -  CLT(N,I)-C0 
IF(QLA.LE.0. )  CCL  *  0. 

IF(QLB.LE.0. )  CCM  -  0. 

DC00  -  (B1*C(N,I-1) +B2*C00+B3*DC (N , I- 1 ) +B4*DC00 ) * ( G0-DT* (KS 
+  QLA+QLB ) ) +DT* (DSINK-C0*DK  +  CCL*DQLA+CCM*DQLB ) 

COO  -  C0*(1-DT*KS)  +  (SINKS  +  CCL*QLA+CCM*QLB ) *DT 

T(N  +  26, L)  -  COO 

T(N  +  38, L)  -  DC00 

C(N,I)  *  C00*(1.-D)  +  T(N,L)*D 

DC(N,I)  =  DC00*(1.-D)  +  T(N  +  12,L)*DD 
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465 


CONTINUE 


**************************************************************************** 
Call  to  wind-driven  reaeration  SUBROUTINE  REAERK  -  correct  D.O. 
Concentration  to  account  for  wind  driven  reaeration 

IF  ITEM=1 ,  TAIR=DRY0  and  WIN=WINDO*0 . 447  with  the  actual  values 
put  in  for  DRYO  and  WINDO  by  user. 

IF  ITEM=0 ,  TAIR=DRY0  and  WIN=WIND0*0 . 447 ,  value  for  tair  and 
win  are  obtained  from  met  data  during  heat  exchange  calculation 
**************************************************************************** 

IF  (N.EQ.10  .AND.  QWIND)  THEN 
TAIR«DRY0 
WIN=WIND0*0 . 447 

IF ( ITEM ( IBRANCH ) . EQ . 1 . AND . TAIR . EQ . 0 . AND . WIN . EQ . 0 ) THEN 
WRITE (OUT ,9089) 

>089  FORMAT (’  USER  MUST  PROVIDE  A  CONSTANT  VALUE  FOR  DRY  BULB  TEMP’,/, 

.  ’  AND  WIND  SPEED  (TAIR  AND  WIN)  SINCE  ITEM=1  AND  QWIND=TRUE . ’ , / , 

.  ’  DO  THIS  BY  REPLACING  DRYO  AND  WINDO  WITH  NUMERICAL  VALUES \  /  , 

.  ’  IN  THE  STATEMENTS  DIRECTLY  ABOVE  LINE  9089  IN  THE  SOURCE ’  ,  /  , 

.  ’  CODE .  IF  NOT  DONE  DRYO  AND  WINDO  ARE  SET  TO  0  AND  THIS  ’  ,  /  , 

.  *  ERROR  RESULTS . ’ ) 

STOP 
END  IF 

CALL  REAERK (WIN, TAIR, TEMP ,RK) 

DTS  -  DT  *  86400. 

RK  =  RK/ 86400. 

C(10,I)  =  C(10,I)  +  RK  *  (DOSAT-C( 10 , I) )  *  DTS  /  H 
END  IF 

**************************************************************************** 
Negative  hedge  for  all  wq  constituents  except  temperature . 

That  is,  no  concentrations  are  allowed  to  go  below  zero. 
**************************************************************************** 

IF  (N.GT.l)  THEN 

IF  (C(N,I) .LT.0. )  C(N,I)  =  0. 

END  IF 

460  CONTINUE 

END  "DO  460"  Concentration-computation  loop  for  a  given  node  and 
time  step 

**************************************************************************** 


ULR-ULL 
470  CONTINUE 

END  "DO  470"  Node  computation  loop,  put  values  in  proper  arrays 
and  DO  diffusion  calculations 

**************************************************************************** 
IF  (IT0  .LE.  0  )  GO  TO  560 

Values  at  the  downstream  terminus  placed  in  the  t-array 
**************************************************************************** 


T(25 ,IT0)  =  Q(MNODE) 

T(26 ,IT0)  -  Q(MNODE) /A(MNODE) 

DO  16  N  =  1,12 
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IF  ( .NOT. CP (N) )  GO  TO  16 
T(N, ITO)  -  C(N,MNODE) 

T(N  +  12, ITO)  -  DC(N.MNODE) 
16  CONTINUE 
560  CONTINUE 


C  **************************************************************************** 

C 

IF  (DT.LE.O. )THEN 
DO  1112  I-l.MNODE 
Q0(I)  -  Q(I) 

A0(I)  -  A(I) 

B0(I)«  B(I) 

ELO(I)  -  EL (I) 

1112  CONTINUE 
RETURN 
ENDIF 


C 

C 

C 

C 

C 


DO  403  N  =  1,12 

IF  (CP(N) )  C (N , 1 )  =  BC(N) 
403  CONTINUE 


At  this  point,  the  computed  constituent  concentrations  are 
corrected  for  dispersion  using  an  implicit  numerical  scheme. 

Resulting  set  of  equations  solved  using  subroutine  tridag.  . ,,,,,, 

************************************************************************* 


F(1 ,2)  -  1. 

F(1 ,3)  -  0. 

F (MNODE , 1 )  -  0. 
F(MN0DE,2)  =  1. 

MN1  =  MNODE  -  1 


DO  500  I  =  2 ,MN1 

F0  =  2.*DISP(I)*THETA*DT/ (DX1 ( I— 1 ) 
F ( I , 1 )  -  -F0/DX1 ( I— 1 ) 

F(I,3)  -  -F0/DX1 (I) 

F ( 1 , 2 )  -  1.  -  F(1 , 1 )  -  F(I,3) 


+  DX1(D) 


500  CONTINUE 
C 


Now  the  rieht-hand  side  for  each  modeled  constituent 

C  **************************************************************************** 

C 


DO  510  N  -  1,12 

IF( .NOT. CP (N) )G0  TO  510 
F(1 ,4)  -  C(N, 1) 

F (MNODE, 4)  =  C(N, MNODE) 


F(I,4)  «=  RTHETA*(F(I, 1)*C(N,I-1)  +  F(I,3)*C(N,I+1)  + 

*  (F(I,2)-1.)*C(N,I))  +  C(N,I) 

520  CONTINUE 

CALL  TRIDAG (F (1,1) ,F(1 ,2) ,F(1 ,3) ,F(1 ,4) ,F(1 ,5) ,F(1 ,6) , 

*  C, MNODE, N) 


F(1 ,4)  -  DC(N, 1 ) 

F (MNODE, 4)  «  DC(N, MNODE) 

DO  540  I  «  2,MN1 
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F(I,4)  -  RTHETA*(F(I , 1 )*DC(N,I-1 )  +  F(I , 3)*DC(N, 1+1 )  + 

*  (F(I,2)-1. )*DC(N,I) )  +  DC(N, I) 

540  CONTINUE 

CALL  TRIDAG  (F(l , 1) ,F(1 ,2) ,F(1 ,3) ,F(1 ,4) ,F(1 ,5) ,F(1 ,6) , 

*  DC,MNODE,N) 

510  CONTINUE 

C 

C  Dispersion  for  Tributary  Junctions 

C 

C  Tributary  influx  is  modeled  as  a  discontinuity  and  so  the  values 

C  immediately  upstream  of  the  junction  point  must  be  stored.  The 

C  first  24  members  of  the  T-array  contain  concentrations  and  their 

C  derivatives  at  the  mouth  of  the  trib,  location  25  contains  trib 

C  flow,  and  location  26  contains  the  trib  velocity.  Locations  27-38 
C  contain  concentrations  in  the  mainstem  just  upstream  of  the 

C  junction  point.  Locations  39-50  contain  the  concentration 

C  derivatives  there . 

C  **************************************************************************** 

IF  (ITl.LE.O)RETURN 

DO  550  LL  =  IT1.IT2 
I  =  JT(LL) 

F0  =  2 . *DISP(I)*DT/ (DX1 (1-1 )  +  DX1(I)) 

FI  =  F0/DX1 (1-1 ) 

F3  =  F0/DX1 (I) 

F2  =  1.  +  FI  +  F3 

DO  550  N*1 , 12 

IF  ( .NOT. CP (N) )  GO  TO  550 

T(N  +  26, LL)  *  (T(N+26,LL)+F1*C(N,I-1)+F3*C(N,I+1))/F2 
T(N  +  38, LL)  =  (T(N+38,LL)+F1*DC(N,I-1)+F3*DC(N,I+1))/F2 
550  CONTINUE 

RETURN 

END 

SUBROUTINE  SPLINE  (C ,DC,CP,DX,F,MNODE) 

C  **************************************************************************** 
C  SUBROUTINE  SPLINE 

C 

C  SPLINE:  A  program  to  fit  a  cubic  spline  to  the  data,  with 
C  continuous  zeroeth,  first  and  second  derivatives,  the  output 
C  is  the  value  of  derivative  at  each  point. 

c  **************************************************************************** 

DIMENSION  C(12,MN0DE) ,DC(12 ,MNODE) ,CP(12) ,DX(MN0DE) ,F(MN0DE,6) 

LOGICAL  CP 

F(  1 , 1 )  =  0. 

F( 1 , 2)  -  1. 

F(1 ,3)  -  0.5 

F(MNODE, 1)  -  0.5 
F(MNODE,2)  -  1. 

F(MN0DE,3)  -  0. 

M2  -  MNODE-1 

DO  2  I  *  2, M2 
F(I , 1 )  -  DX(I) 

F(I,2)  -  2.*(DX(I-1)  +  DX ( I ) ) 

F(I,3)  -  DX(I-l) 
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2  CONTINUE 


DO  4  N  *  1,12 

IF  ( .NOT. CP (N) )  GO  TO  4 

F(1 ,4)  =  1.5/DX(1)*(C(N,2)-C(N,1)) 

F(HN0DE,4)  «=  1 .5/DX(M2)*(C(N,MN0DE)-C(N,M2) ) 

D0  F(I ,4)2*  32*(DX(I-1)/DX(I)*(C(N,I  +  1)-C(N,I))+  DX(I)/ 
DX(I-1)*(C(N,I)-C(N,I-1) ) ) 

3  CONTINUE 

CALL  SUBROUTINE  TRIDAG 

**************************************************************************** 


CALL  TRIDAG  (F(l , 1) ,F(1 ,2) ,F(1 ,3) ,F(1 ,4) ,F(1 ,5) ,F(1 ,6) , 

*  DC,MNODE,N) 

4  CONTINUE 

RETURN 

END 

**************************************************************************** 
SUBROUTINE  TRIDAG 

**************************************************************************** 
SUBROUTINE  TRIDAG  ( A, B,C,D, BETA, GAMMA, V,M1 ,N) 

DIMENSION  A(M1) , B (Ml ) , C (Ml ) , D (Ml ) , BETA (Ml ) , GAMMA (Ml ) ,V(12,M1) 

**************************************************************************** 
NOTE  that  the  MATRICES  F(l,l)  through  F(l,6)  are  passed  to 
TRIDAG  where  they  are  received  as  1-D  vectors  with  Ml 
positions.  What  has  actually  occurred  is  a  matrix  F(I,N) 
has  been  received  as  a  1-D  vector  containing 
MN1  values  corresponding  to  the  right  most  subscript 
where : 

A(M1 )  =  F(I , 1 ) ,  I  VARIES  FROM  1  TO  MN1 

B(M1)  «  F(I , 2) ,  I  VARIES  FROM  1  TO  MN1 

C(M1)  -  F(I ,3) ,  I  VARIES  FROM  1  TO  MN1 

D(M1 )  -  F(I ,4) ,  I  VARIES  FROM  1  TO  MN1 

BETA(Ml)  -  F(I,5) ,  "  "  "  "  "  " 

GAMMA (Ml)  -  F(I,6) ,  "  "  "  "  "  " 

**************************************************************************** 


BETA(l)  -  B(l) 

GAMMA(l)*  D(l) /BETA(l) 

DO  1  I  -  2,  Ml 

BETA (I)  -  B(I)-A(I)*C(I-1) /BETA(I-l) 

1  GAMMA(I)*  (D(I)-A(I)*GAMMA(I-1) ) /BETA(I) 

V(N,M1)  -  GAMMA  (Ml ) 

M2  -  Ml-1 

DO  2  K  -  1, M2 
I  -  Ml-K 

2  V(N,I)  -  GAMMA(I)-C(I)*V(N,I  +  1)/BETA(I) 

RETURN 

END 

**************************************************************************** 
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C  SUBROUTINE  HEAT 

C 

C  This  SUBROUTINE  is  adapted  from  "QUAL-II"  Stream 

C  Quality  Model,  written  by  Larry  A.  Roesner,  Paul 

C  R.  Giguere  and  Donald  E.  Evenson  in  Water  Resources 

C  Engineers,  Inc.  710  South  Broadway,  Walnut  Creek, 

C  California  94596 

C  **************************************************************************** 

SUBROUTINE  HEAT 
INCLUDE  ’RIV1Q.CMN’ 

c  ************************* *************************************************‘** 

C  DEFAULT  VALUE 

c 

C  IRFLAG  :  0,  Read  only  once 

C  1 ,  No  longer  read  data 

C  JDYO  :  The  day  of  year  to  start  simulation 

C  LMN  :  Counter  for  segment  number 

C  LII  :  Counter  for  node  number 

C  LATUDC  :  Local  latitude ,  degree 

C  LONTUC  :  Local  longitude ,  degree 

C  LSMC  :  Longitude  of  standard  meridian,  degree 

C  DUC  :  Dust  attenuation  coefficient 

C  NUM  :  Number  of  meteorological  updates 

C  NUP(I)  :  largest  iteration  at  which  data  I  applies 

C  DUMMY  :  Array  containing  all  meteorological  updates 

C  CLOUDO  :  Cloud  cover  (fraction) 

C  WINDO  :  Wind  speed  (mile /hr) 

C  DRYO  :  Dry  bulb  temperature  (f) 

C  WETO  :  Wet  bulb  temperature  (f) 

C  ATMO  :  Atmospheric  pressure  (inch/hg) 

C 

C  The  following  data  are  only  read  once 

C  IRFLAG  will  equal  0  unless  specified  otherwise 

C  as  is  done  elsewhere 

C  **************************************************************************** 

C 

C 

FWST  =  TEMP 


C  Call  to  SUBROUTINE  HEATFLUX 

c  **************************************************************************** 

C 


CALL  HEATFLUX 

(JDYO, 

DUC, 

LSMC, 

* 

LLMC, 

LATUDC, 

LONTUC , 

* 

TEMP, 

WINDO, 

CLOUDO , 

* 

ATMO, 

DEPTH0 , 

RHOO, 

* 

WETO, 

DRYO, 

HFLUX  ) 

c 

C  Conversion  heat  flux  from  ’BTU’  to  KCAL,  then  to  degree  (f), 

C  then  to  (c).  Thus,  DTEM  is  in  Deg  C. 

C  NOTE:  Here  and  in  CONS7 
C  CP  *  1.0  CAL/G-C  RHO  -  1  G/CM"3 

C  BTU  *  0.252  *  KCAL 

C  28.33  *  (100CM)**3/ (1000  CAL /KCAL*  35.31  FT**3/M**3) 

Q  **★*******★***★*******★★**★********★*******★*********★****★***i*1lt*****‘*,*,***★ 

c 

DTEM  -  (HFLUX  *  0.252)  /C0NS7 
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FWST  *  FWST  +  DTEM 
TEMP  »  FWST 


RETURN 

END 

**************************************************************************** 

**************************************************************************** 

**************************************************************************** 
This  is  general  subroutine  to  calculate  the  heat.  The 
following  data  have  to  be  supplied,  either  by  reading  from 
own,  or  from  other  program. 

JDY  :  Day  of  year  starting  simulation 
LSM  :  Longitude  of  standard 

meridian,  degree 
LATUD  :  Local  latitude,  degree 
LONTUD  :  Local  logitude,  degree 

-1  for  west,  +  1  for  east 
CLOUD  :  Cloudiness,  0  -  0.99 

DU  :  Dust  attenuation,  value 

from  0  -  0.13 

WETBLB  :  Wet  bulb  temp,  f 
DRYBLB  :  Dry  bulb  temp,  f 
WINSPD  :  Wind  speed,  mile/hour 
ELEV  :  Water  surface  elev.ft 
TEM  :  Temperature,  c 

RHO=RHOO :  Density,  gram  per  cubic 
millimeter 

HNEF  :  Heat  flux,  value  returned 

as  BTU/FT**2 

!  **************************************************************************** 

SUBROUTINE  HEATFLUX  ( JDY, DU, LSM, LLM, LATUD, LONTUD, TEM  WINSPD, 

CLOUD , ATMPR , DEPTH , RHO , WETBLB , DRYBLB , HNEF ) 


INCLUDE  ’RIV1Q.CMN’ 


C 

C 

C 

C 


REAL  LONTUD, 

*  LLM, 


LATUD,  LSM, 

DEWPON 


****S2****2***************************************************************** 


DATA 

* 


HCAP/1 .0/ ,  RWSAR/0.03/ , 

HSC/438. /  SPWEVA/ 62 . 22/ 


ELEVO  -  0. 

ELEVP  -  EXP ( -ELEVO  / 2532.) 
C0NS1  -  2.*PI/365 . 

CONS 2  -  PI*LATUD  / 180 . 

C0NS3  -  180. /PI 
CONS4  =  23.45*PI/180. 

C0NS5  -  PI/12. 

CONS6  -  12. /PI 

CONS 7  *  RHO*28 . 336*HCAP*DEPTH 
CONST3  -  6.8E-04 
CONST4  *  2.7E-04 
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C  Stefan-Boltzman  Constant 

q  **************************************************************************** 
STBOLC  =  1.73E-09 

COMPUTATION 

RADIATION  EXCHANGE  HEAT 
(A)  Net  short-wave  solar  radiation  (HNSWR) 

A- I .  Radiation  flux 

Convert  temperature  from  deg.  C  to  deg.  F 
**************************************************************************** 

WST  -  (TEM  *  9.)/5.  +  32. 

For  the  same  day,  following  calculation  is  same 
**************************************************************************** 


IF  (  ( JTIME  .EQ.  1  .AND.  LMN  .EQ.  1  .AND.  LII  .EQ.  1)  .OR. 

*  ( JDY  .NE.  JDYO  .AND.  LMN  .EQ.  1  .AND.  LII  .EQ.  1)  )  THEN 

Declination 

**************************************************************************** 


DESUN  =  C0NS4*C0S (C0NS1*( 173 . -JDY) ) 

DECLIN  =  ABS (DESUN) 

Earth- sun  distance 

**************************************************************************** 

REARTH  =  1.0  +  0 . 017*COS (C0NS1*(186 . -JDY) ) 

ETIME  =  0. 000121-0. 12319*SIN(C0NS1*(JDY-1 . )-0. 0714) - 
*  0. 16549*SIN(2.*C0NS1*(JDY-1 . )  +  0.3088) 

Difference  between  standard  and  local  civic  time 
**************************************************************************** 

DSTLT  =  (LSM  -  L0NTUD)/15. 

Standard  time  of  sunrise  and  sunset 

**************************************************************************** 


ACS  «  TAN (C0NS2)*TAN (DECLIN) 

C 

IF  (ACS  .NE.  0.)  THEN 

XI  =  SQRT ( 1 . -ACS*ACS ) 

XI  =  XI /ACS 
ACS  =  ATAN(Xl) 

IF  (DESUN  .GT.  0.)  ACS  -  PI-ACS 
ELSE 

ACS  -  PI/2.0 
END  IF 
C 

TIMRIS  -  12 . - (CONS6*ACS)  +  DSTLT 
TIMSET  =  24. -TIMRIS  +  2.*DSTLT 
C 

END  IF 
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Saturated  vapor  pressure  of  the  air,  SVPA 
**************************************************************************** 

SVPA  -  0.1001 *EXP ( 0 . 03*WST  ) -0.0837 

The  following  are  the  same  for  each  node  but  can  change  at  each 
time  step.  LMN  and  LII  equal  1  at  each  new  time  step. 
**************************************************************************** 

IF  (  LMN  .NE.  1  .OR.  LII  .NE.  1  )  GO  TO  480 


If  you  want  to  read  in  dew  point  temperatures  instead  of  wet 
bulb,  comment  out  all  statements  between  the  XXXXXXX  Section 
kxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

Saturated  vapor  pressure,  SVAP 

★★★★★★lit********************************************************************* 


SVAP  =  0.1001*EXP(0.03*WETBLB  ) -0.0837 

Water  vapor  pressure  (WVAP)  _ 

**************************************************************************** 

WVAP  =  SVAP-0 . 000367*ATMPR* (DRYBLB-WETBLB  )*(1 . 0+(WETBLB-32 . ) / 

1571.) 

Dew  point 

**************************************************************************** 

DEWPON  «  LOG ( (WVAP  +  0 . 0837) 10 . 1001 ) 10 . 03 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


Hour  angle 

**************************************************************************** 


IF  (TIMSET  .LE.  STB  .OR.  TIMRIS  .GE.  STE ) THEN 
GO  TO  35 

ELSE  IF  (TIMRIS  .GT.  STB  .AND.  TIMRIS  .LT.  STE) THEN 
DIUEXP  =  1. 

ANGRIS  =  TIMRIS  -DSTLT  +  ETIME-12. 

ANGSET  -  STE  -DSTLT  +  ETIME-12. 

ELSE  IF  (TIMSET  .LT.  STE  .AND.  TIMSET  .GT.  STB) THEN 

DIUEXP  -  1. 

ANGRIS  -  STB -DSTLT  +  ETIME-12. 

ANGSET  -  TIMSET  -DSTLT  +  ETIME-12. 

ELSE 

DIUEXP  -  1 . 

ANGRIS  »  STB-  DSTLT  +  ETIME-12. 

ANGSET  ■  STE-  DSTLT  +  ETIME-12. 

END  IF 

Calculate  hour  angle ,T, (HOURAN) 
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c  **************************************************************************** 

c 

HOURAN  ■  (ANGRIS  +  ANGSET  )/2. 

C 

C  Short-wave  solar  radiation  flux 

q  **************************************************************************** 
C 

HRF  *  HSC /(REARTH**2.)* (SIN (C0NS2)*SIN (DESUN) *(ANGSET-ANGRIS) 

+CONS6*COS (CONS2 ) *COS (DESUN) * ( SIN ( CONS5*ANGSET ) -SIN (CONS5 
♦ANGRIS) ))*DIUEXP 

C 

C  A-II.  Atmospheric  Transmission  term,  AT(ATT) 

C 

C  Sun  altitude  in  radians 

q  **************************************************************************** 
C 

ALPH  =  SIN (C0NS2 ) *SIN (DESUN) +COS ( C0NS2 ) *COS (DESUN) *COS ( C0NS5* 

HOURAN  ) 

IF  (ABS(ALPH  )  .NE.  1.0)  THEN 

Y1  *  SQRT ( 1 . -ALPH  **2) 

Y1  -  ALPH  / Y1 
ALPH  =  ATAN(Yl) 

ELSE  IF  (ALPH  .NE.  -1.0)  THEN 

ALPH  =  PI/2.0 

ELSE 

ALPH  =  -PI/2.0 
END  IF 

IF  (ALPH  .LT.  0.01)  GO  TO  35 
C 

C  Optical  air  mass 

C  **************************************************************************** 

C 

OAM  =  ELEVP/ (SIN (ALPH  )+0 . 15*( ( 180 . *ALPH/PI+3 . 885)**(-l . 253) ) ) 

C 

C  Mean  daily  precipitate  water  content 

Q  **************************************************************************** 

c 

PWC  *  0 . 00614*EXP(0 . 0489*DEWPON  ) 

C 

C  Mean  atmospheric  coefficient,  A’ (AC) 

q  **************************************************************************** 

AC  -  EXP (-(0.465  +  0 . 0408*PWC  )*(0.129  +  0 . 171*EXP(-0 . 880* 

*  OAM  ) )*OAM  ) 

C 

C  Mean  atmospheric  transmission  coefficient 

Q  **************************************************************************** 

c 

ATC  =  EXP(-(0. 465+0. 0408*PWC)*(0 . 179+0. 421*EXP(-0.721*OAM) )* 

OAM) 

C 

C  Determine  the  value  of  AR  (A) ,  and  BR  (B) ,  from  the  value  of  cloud 
C  for  the  function  of  reflection  coefficient  ,RS. 
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£  **************************************************************************** 
C 

CNL  =  CLOUD  *10  +  1.0 
NLL  *  CNL 

GO  TO  (50,51,51,51,51,51,52,52,52,52,53) , NLL 

50  AR  -  1.18 
BR  =  -0.77 
GO  TO  54 

51  AR  -  2.20 
BR  -  -0.97 
GO  TO  54 

52  AR  *  0.95 
BR  *  -0.75 
GO  TO  54 

53  AR  -  0.35 
BR  -  -0.45 

54  CONTINUE 
C 

C  Reflection  Coefficient 

C 

C  Solar  altitude  in  degree 

0  **************************************************************************** 
C 

RS  -  AR*(CONS3*ALPH  )**BR 
IF (RS . GT . 1 . 0)RS=1 . 0 
C 

C  Dampening  effect  on  the  solar  radiation  flux  gives  satisfactory 
C  results  except  for  heavy  overcast  condition, i.e .  when  cloud 

C  approaches  1.0 

q  **************************************************************************** 
C 

IF  (CLOUD  .LE.  0.9)  THEN 
CS  -  1 . 0-0 . 65*CLOUD  **2. 

ELSE 

CS  =  0.5 
END  IF 
C 

C  Calculate  atmospheric  transmission  term 

C  **************************************************************************** 

C 

ATT  =  (ATC+0 . 5* ( 1 . -AC-DU) ) / ( 1 . -0 . 5*RS  *(1.-AC  +  DU)) 

C 

C  Net  short-wave  solar  radiation  btu/ft**2 

q  **************************************************************************** 
C 

HNSWR  -  HRF*ATT* ( 1 . -RS ) *CS 

GO  TO  479 

35  DIUEXP  *  0. 

HNSWR  -  0 . 

479  CONTINUE 
C 

C  (B)  Calculate  long-wave  atmospheric  radiation, HAN  (HNLWR) 
q  **************************************************************************** 
C 

HNLWR  «  (2.89E-06)*STBOLC*( (DRYBLB+460. )**6)*(1 .0+0. 17* 

( CLOUD**2 . ) ) * ( 1 . -RWSAR) 

C 

C  Compute  insolation  for  algae 
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Q  **************************************************************************** 

C 

IF  (  DELTAT  .LE.  0.  )  GO  TO  481 
HNEFSW ( IBRANCH )  -  HNSWR  /  DELTAT 

GO  TO  482 

481  CONTINUE 

HNEFSW (IBRANCH)  -  0. 

482  CONTINUE 
C 

C  Convert  to  w/m**2 

C  **************************************************************************** 

C 

HNEFSW (IBRANCH)  «  HNEFSW (IBRANCH)  *  3.155 
480  CONTINUE 
C 

C  (C)  Calculate  water  surface  back  radiation,  (HOLWBR) 

C  ********************************************************,***,**‘******‘********* 

C 

HOLWBR  =  0 . 97*STBOLC*( (WST  +  460.)**4) 

C 

C  EVAPORATION  HEAT 

C 

C  (D)  Calculate  evaporation  (HEVAP) 

C 

C  D-I.  Calculate  evaporate  rate,  E,  (EVARAT) 

q  **************************************************************************** 
C 

EVARAT  -  (CONST3  +  C0NST4*WINSPD  )*(SVPA  -WVAP  ) 

IF  (EVARAT  .LT.  0.)  EVARAT  =0. 

C 

C  D-II.  Calculate  sensible  heat  loss(HSENH) 

Q  *********************************** ************************** *************** 

c 

HSENH  =  0 . 

C 

C  D-III.  Calculate  latent  heat  of  evaporization,  HL,(HLEVA) 

C  **************************************************************************** 

C 

HLEVA  -  1084 . -0 . 5*WST 
C 

C  Heat  loss  by  evaporation  HE  (HEVAP) 

C 

HEVAP  *=  SPWEVA*HLEVA  *EVARAT  +  HSENH 
C 

C  CONDUCTION  HEAT 

C 

C  (E)  Calculate  conduction  heat,  HC,  (HCOND) 

C  **************************************************************************** 

C 

HCOND  -  SPWEVA*HLEVA* ( CONST3+CONST4*WINSPD ) * ( 0 . 0 1 *ATMPR  / 29.92)* 

(DRYBLB  -WST) 

C 

C  Finally,  calculate  net  energy  flux  passing 

C  the  air-water  interface,  HN(HNEF) ,BTU/FT**2 , DELTAT-HOURS 

C 

HNEF  -  HNSWR+ (HNLWR-HOLWBR+HCOND-HEVAP) *DELTAT 
C 

C  Return  value  here 

£  **************************************************************‘*’************* 
C 
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RETURN 

END 


FUNCTION  TAN  (X) 

TAN=SIN(X/57 .3) /COS(X/57 .3) 

RETURN 

END 

FUNCTION  ASIN(X) 

ASIN*X  +  (X**3./6.)  +  (3.*X**5./40.)  +  (15.*X**7. /336. ) 

RETURN 

END 

FUNCTION  ACOS(X) 

ACOS-ASIN (SQRT ( 1 . -X**2 . ) ) 

RETURN 

END 


**************************************************************************** 


SUBROUTINE  REAERK 

SUBROUTINE  REAERK  calculates  reaeration  coefficient  (RK)  (M/DAY) 

Given  wind  speed  (WS)  (M/S)  and  temperature  (T)  (C)  using  the 
method  presented  in  JOUR  OF  ENV  ENG, VOL.  109,  NO. 3, PP. 73 1-752, 

June  1983, Author:  D.J. O’ CONNOR,  Title:  "Wind  Effects  on  Gas- 
liquid  Transfer  Coefficients 

Parameters  used  in  this  subroutine  were  those  given  for 
intermediate  scale  correlation  (TABLE  2),  I.E.,  Large  Laboratory 
Systems  and  Moderately  sized  lakes. 

**************************************************************************** 
SUBROUTINE  REAERK ( WS ,TA,TW,RK) 

INCLUDE  ’RIV1Q.CMN’ 

REAL*4  KA,LAM,KA3 

Calculate  diffusivity  of  oxygen  in  water  (DIFF)  (CM**2/SEC), 
viscosity  of  water  (VW)  (CM**2/SEC)  .viscosity  of  air  (VA) 

(CM**2/ SEC) .density  of  water  (PW)  (G/CM**3),  density  of  air 
(PA)  (G/CM**3) 

DIFF=4 . 58E-07*TW+1 . 2E-05 

TA  ■  (TA-32  >*5  / 9 

VW*0 .0164- .000245 14*TW 

VA* . 133+ . 0009*TA 

PA* . 00129- . 0000040*TA 

PW=1 .00 

WS*WS*100. 

RK*1 . 

N*0 


Use  Newton-Raphson  method  to  calculate  the  square 
root  of  the  drag  coefficient.  Parameters  used  in 
the  model  include  transitional  shear  velocity  - 
UT(M/SEC) ;  Critical  shear  velocity-  UC(CM/SEC); 

Von  Karman’s  constant- (KA) ;  Equilibrium  roughness-ZE(CM) ; 
1/LAM  is  a  Reynolds  Number;  GAM  is  a  non-dimensional 
coefficient  dependent  on  the  water  body  size.  LAM, 

GAM,  UT,  MC,  and  ZE  are  also  dependent  on  water  body  size. 
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c 

UT=10 . 0 
UC-11.0 
KA-0 . 4 

KA3-KA** . 3333 
ZE-0 . 25 
LAM*  3 . 0 
GAM=6 .5 
WH-1000. 

C  Make  initial  guess  for  square  root  of  the  drag  coefficient 

C  **************************************************************************** 

SRCD-0 . 04 
10  N-N+l 

C  Calculate  value  of  FUNCTI0N(F2)  and  derivative  of  function(FP) 

C  it************************************************************************* 

EF  -EXP  ( -  SRCD*WS  /  UT ) 

F 1 -LOG ( ( WH / ZE ) + (WH*LAM / VA) *SRCD*WS*EF ) 

F2-F1-KA/SRCD 

FP1-1 . / ( ( WH / ZE )  +  ( LAM*WH / VA ) *SRCD*WS  *EF ) 

FP2= ( (WH*LAM) / (VA*UT) ) *SRCD*WS**2*EF 

FP3- (WH*LAM/VA) *WS*EF 

FP4-FP1 * ( FP2+FP3 ) + (KA/ (SRCD**2) ) 

C  Calculate  new  value  of  square  root  of  drag  coefficient.  Compare 
C  to  previous  value .  If  not  acceptable  return  to  Newton-Raphson 
C  algorithm. 

c  **************************************************************************** 

SRCD2-SRCD-F2/FP4 
ERR-ABS ( SRCD-SRCD2 ) 

IF (ERR . GT . 0 . 0005 . AND . N . LT . 8 ) THEN 
SRCD-SRCD2 
GO  TO  10 
END  IF 

IF (ERR. GT . 0 . 005 . AND .N. GE .8)  GO  TO  90 

CD=SRCD**2 

US-SRCD*WS 

Z0=1 . / ( (1 . / ZE ) +LAM*US*EXP ( -US /UT ) /VA) 

/ 1  on 

IF(WS.LT.6.0)G0  TO  60 

IF  (WS .  GE .  6 . 0 .  AND .  WS .  LE .  20 . 0 )  GO  TO  80 

IF ( WS . GT . 20 . 0 ) GO  TO  70 

C  Calculate  rk  for  windspeeds  less  than  6.0  m/sec  based  on 
C  equation  23b  in  citation 

q  **************************************************************************** 

60  RK1=(DIFF/VW)**0 . 666667*SRCD* (PA/PW)**0 . 5 
RK-RK1 *KA3*WS / GAM 
RK-RK*3600 . *24 . 

GO  TO  85 

C  Calculate  RK  for  windspeeds  greater  than  20  m/s  based  on 
C  equation  25b  in  citation 

c  ********************************************************************** 

70  RK- (DIFF*PA*VA*US / ( 0 . 1 *PW*VW) ) **0 . 5 
RK-RK*3600 . *24 . / 100 . 

GO  TO  85 
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Calculate  RK  for  windspeeds  between  6  and  20  m/s  based  on 
eauatlons  26a  and  27  in  citation 

**************************************************************************** 


80 


90 

102 

85 


GAMU=GAM*US*EXP ( -US /UC+1 . ) / UC 

RK1= (DIFF/VW) ** . 6667*KA3* (PA/PW) **0 . 5*US / GAMU 

RK2= (DIFF*US*PA*VA/ (KA*Z0*PW*VW) )**0.5 

RK3«(1./RK1)+(1./RK2) 

RK-1 .  /RK3 

RK«RK*3600.*24. / 100 . 

GO  TO  85 
WRITE(0UT, 102) 

FORMAT (5X, ’SOLUTION  DID  NOT  CONVERGE’) 

CONTINUE 

RETURN 

END 


**************************************************************************** 


SUBROUTINE  RIVDU 

**************************************************************************** 


SUBROUTINE  RIVDU (IFIRST) 

INCLUDE  ’RIV1Q.CMN’ 
INCLUDE  ’ TRANSP . CMN ’ 

COMMON /ABLOCK/  NS 


CHARACTER*30  DNAME  (18) 

DATA  DNAME/ 

+  ’Distance  (mi) 

+  ’Velocity  (ft/sec) 

+  ’Hydraulic  Depth  (ft) 

+  ’ CBODNS 

+  ’NH3-N 

+  ’ORGANIC-P 

+  ’MN 

+  ’DO 

+  ’ALGAE 


’Stage  (ft) 

’Flow  (cfs) 

’Temperature 

’Organic  N 

’N03-N 

’P04 

’FE 

’  COLIFORM  BACT 
’DUMMY 


/ 


RDUMMY  -  0. 


6000 

C 


6010 


6020 

6030 


C 


IF  (IFIRST  .EQ.  1)  THEN 
NCHEM  *  1 

WRITE  (RIVDMP ,  6000)  NCHEM 
FORMAT  (15) 

WRITE  (RIVDMP,  6010)  RDUMMY , RDUMMY 
FORMAT (A40 ,E10 . 2 ,F10 . 2) 

TIME  -  0. 

TFIN  -  ENDTIME 

WRITE  (RIVDMP,  6020)  TIME,  TFIN,  MNODE 
FORMAT(1X,F10.2,F10.2,/,I5) 

WRITE  (RIVDMP,  6030)  (DNAME  ( JK) ,  JK  =  1 ,  6  +  (12*NCHEM)) 
FORMAT (A30) 

IFIRST  -  1 
END  IF 

DO  100  I- 1, MNODE 
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SYSDUMP(1,I)  -  RMILE(I) 

SYSDUMP(2,I)  =  ELEV(I) 

SYSDUMP(3 , 1)  =  ( (FLOW(I)  / 86400 . )  /  AREA(I) ) 

SYSDUMP(4,I)  -  FLOW(I) / 86400. 

SYSDUMP(5 ,1)  =  AREA ( I ) /WIDTH ( I ) 

DO  1  IK  =  1,12 

SYSDUMP ( 5+IK , I )  =  C0NC(IK,I) 

1  CONTINUE 

WRITE (RIVDMP, 6040) I, ELAPSE, RMILE (I) ,ELEV(I) , (FLOW(I) /86400) / 

AREA(I) ,FLOW(I) / 86400. ,AREA(I) /WIDTH(I) , 
(CONC(NN,I) ,NN=1 ,12) ,RDUMMY 

6040  FORMAT(1X,I5,F10.2,3X,/,6(E11.3) , / ,6 (Ell .3) ) 

100  CONTINUE 
C 

RETURN 

END 

C  SUBROUTINE  GREGORIAN  DATE 

SUBROUTINE  GREGORIAN  DATE (ELAPSE, YEAR, MONTH, GDAY, HOUR) 


Variable  declarations 

**************************************************************************** 


LOGICAL  LEAP  YEAR 
CHARACTER  MONTH* 9 
INTEGER  YEAR,  GDAY 


Determine  if  new  year  (regular  or  leap)  and  increment  year 
**************************************************************************** 


JDAYG=ELAPSE  -  1 

HOUR  =  ( ELAPSE -FLOAT ( JDAYG )  -  1)*24. 

LEAP_YEAR  -  MOD (YEAR , 4 ) . EQ . 0 

IF  (.NOT. LEAP  YEAR. AND. JDAYG. EQ. 365)  THEN 
JDAYG  -  JDAYG-365 

YEAR  -  YEAR+1 

LEAP  YEAR  *  MOD (YEAR, 4) .EQ.O 

ELSE  IF- ( JDAYG . EQ . 3  6  6 )  THEN 
JDAYG  *  JDAYG-366 

YEAR  =  YEAR+1 

LEAP  YEAR  =  .FALSE. 

END  IF  ~ 


Determine  month  and  day  of  year 

**************************************************************************** 


IF  (LEAP  YEAR)  THEN 

IF  (JDAYG.GE.O.AND.JDAYG.LT. 31)  THEN 
GDAY  =  JDAYG+1 
DAYM  =31.0 
MONTH  =  ’  January’ 

ELSE  IF  (JDAYG. GE.31.AND.JDAYG.LT. 60)  THEN 
GDAY  =  JDAYG-30 
DAYM  =29.0 
MONTH  =  ’  February’ 

ELSE  IF  (JDAYG.GE.60.AND.JDAYG.LT. 91)  THEN 
GDAY  =  JDAYG-59 
DAYM  =31.0 
MONTH  =  ’  March’ 
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ELSE  IF  (JDAYG. GE.91.AND.JDAYG.LT. 121)  THEN 
GDAY  *  JDAYG- 90 
DAYM  -  30.0 
MONTH  -  ’  April’ 

ELSE  IF  (JDAYG. GE.121.AND.JDAYG.LT. 152)  THEN 
GDAY  *  JDAYG- 120 
DAYM  -  31.0 
MONTH  *  ’  May’ 

ELSE  IF  (JDAYG.GE.152.AND.JDAYG.LT. 182)  THEN 
GDAY  -  JDAYG- 151 
DAYM  *30.0 
MONTH  *  ’  June’ 

ELSE  IF  (JDAYG. GE. 182. AND. JDAYG.LT. 213)  THEN 
GDAY  -  JDAYG- 181 
DAYM  *  31.0 
MONTH  *  ’  July’ 

ELSE  IF  (JDAYG. GE.213.AND.JDAYG.LT. 244)  THEN 
GDAY  -  JDAYG-212 
DAYM  *  31.0 
MONTH  *  ’  August’ 

ELSE  IF  (JDAYG. GE.244.AND.JDAYG.LT. 274)  THEN 
GDAY  =  JDAYG- 243 
DAYM  *30.0 
MONTH  *  ’ September ’ 

ELSE  IF  (JDAYG. GE.274.AND.JDAYG.LT. 305)  THEN 
GDAY  =  JDAYG- 273 
DAYM  *  31.0 
MONTH  =  ’  October’ 

ELSE  IF  (JDAYG. GE.305.AND.JDAYG.LT. 335)  THEN 
GDAY  *  JDAYG-304 
DAYM  *  30.0 
MONTH  -  ’  November’ 

ELSE  IF  (JDAYG. GE.335.AND.JDAYG.LT. 366)  THEN 
GDAY  *  JDAYG-334 
DAYM  *  31.0 
MONTH  =  ’  December’ 

END  IF 
ELSE 

IF  (JDAYG. GE.O. AND. JDAYG.LT. 31)  THEN 
GDAY  *  JDAYG+1 
DAYM  *  31.0 
MONTH  =  ’  January’ 

ELSE  IF  (JDAYG. GE.31.AND.JDAYG.LT. 59)  THEN 
GDAY  *  JDAYG-30 
DAYM  *29.0 
MONTH  *  ’  February’ 

ELSE  IF  (JDAYG. GE. 59. AND. JDAYG.LT. 90)  THEN 
GDAY  -  JDAYG-58 
DAYM  *  31.0 
MONTH  *  ’  March’ 

ELSE  IF  (JDAYG. GE. 90. AND. JDAYG.LT. 120)  THEN 
GDAY  *  JDAYG-89 
DAYM  *  30.0 
MONTH  -  ’  April’ 

ELSE  IF  (JDAYG.GE.120.AND.JDAYG.LT. 151)  THEN 
GDAY  *  JDAYG- 119 
DAYM  *  31.0 
MONTH  =  ’  May’ 

ELSE  IF  (JDAYG. GE.151.AND.JDAYG.LT. 181) THEN 
GDAY  -  JDAYG- 150 
DAYM  *30.0 
MONTH  -  ’  June’ 
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ELSE  IF  ( JDAYG.GE.181.AND.JDAYG.LT. 21 2)  THEN 
GDAY  -  JDAYG-180 
DAYM  -  31.0 
MONTH  *  ’  July’ 

ELSE  IF  ( JDAYG.GE.212.AND.JDAYG.LT. 243)  THEN 
GDAY  =  JDAYG-211 
DAYM  -  31.0 
MONTH  *  ’  August’ 

ELSE  IF  ( JDAYG.GE.243.AND.JDAYG.LT. 273)  THEN 
GDAY  -  JDAYG-242 
DAYM  =  30.0 
MONTH  -  ’September’ 

ELSE  IF  ( JDAYG.GE.273.AND.JDAYG.LT. 304)  THEN 
GDAY  -  JDAYG-272 
DAYM  -  31.0 
MONTH  -  ’  October’ 

ELSE  IF  ( JDAYG.GE.304.AND.JDAYG.LT. 334)  THEN 
GDAY  =  JDAYG-303 
DAYM  =30.0 
MONTH  =  ’  November’ 

ELSE  IF  ( JDAYG.GE.334.AND.JDAYG.lt. 365)  THEN 
GDAY  =  JDAYG-333 
DAYM  =  31.0 
MONTH  =  ’  December’ 

END  IF 
END  IF 
RETURN 
END 

C  **************************************************************************** 

C  SUBROUTINE  JULIAN  DATE 

C  **************************************************************************** 

SUBROUTINE  JULIAN  DATE ( STADY , ENDY , SYEAR , SMONTH , SDAY , SHOUR , 

EYEAR , EM0NTH7EDAY , EHOUR ) 


C  Variable  declarations 

C  **************************************************************************** 


DIMENSION  DAYM(12) 

INTEGER  SYEAR , SMONTH , SDAY , EYEAR , EMONTH , EDAY 

Specify  days  for  each  month  of  the  year 
********************************************************************  ****■***■* 


DAYM(l) 

DAYM(2) 

DAYM(3) 

DAYM(4) 

DAYM(5) 

DAYM(6) 

DAYM(7) 

DAYM(8) 

DAYM(9) 

DAYM(IO) 

DAYM(ll) 

DAYM(12) 


=  31.0 
=  29.0 
=  31.0 
=  30.0 
=  31.0 
=  30.0 
=  31.0 
=  31.0 
=  30.0 
=  31.0 
=  30.0 
=  31.0 


C  Determine  Julian  day  for  start  time 

q  **************************************************************************** 
STADY  =  0. 
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DAYM  ( 2 )  *  28.  _  ^ 

IF(MOD(SYEAR, A)  .EQ. 0)DAYM(2)  *=29.0 
IF ( SMONTH . GT . 1 )  THEN 
DO  100  1-1 , SMONTH- 1 

STADY  ■=  STADY  +  DAYM(I) 

100  CONTINUE 

END  IF 

STADY  -  STADY  +  SDAY  +  SHOUR/24 . 

ENUY  -  0. 

IF ( EYEAR . GT . SYEAR)  THEN 
DO  200  I-SYEAR, EYEAR- 1 
IF(MOD(I , A) .EQ. 0)THEN 
ENDY*  ENDY  +  366. 

ELSE 

ENDY  *  ENDY  +  365. 

END  IF 

200  CONTINUE 

END  IF 

DAYM(2)  -  28. 

IF (MOD (EYEAR, A) .EQ.0)DAYM(2)=29 . 

IF ( EMONTH . GT . 1 )  THEN 
DO  300  1*1 , EMONTH- 1 

ENDY  -  ENDY  +  DAYM(I) 

300  CONTINUE 

END  IF 

ENDY  =  ENDY  +EDAY  +  EHOUR/24. 

RETURN 

END 

FUNCTION  VALNEW(DAY , T1 , T2 , VI , V2 ) 

RATIO  *  (T2-DAY) / (T2-T1 ) 

VAL  *  ( 1 . O-RATIO) *V2+RATI0*V1 

VALNEW  =  VAL 

RETURN 

END 

r  **************************************************************************** 

C  SUBROUTINE  TIME  VARYING  DATA 

C  ***************************************^***************^******************** 
SUBROUTINE  TIME_VARYING_DATA  (JDAY.TNXTVD, NBC, DUMMY, NS) 

INCLUDE  ’RIV1Q.CMN’ 

INCLUDE  ’TRANSP.CMN’ 

REAL  JDAY 


LOGICAL  INT  LAT,  INT  BC(IBRAN) ,  INT_MET 
CHARACTER*15“'NPSNAME  (TSYS ) 

CHARACTER* 15  INTOPT,  BCFNAME ( IBRAN) 


Dimension  variables  for  boundary  conditions 
**************************************************************************** 
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DIMENSION  TNXTBC(IBRAN) ,  TNXTBC2 ( IBRAN ) 

DIMENSION  DUMMY(ISYS, IBRAN) ,DUMMY1(ISYS, IBRAN) ,  DUMMY2(ISYS) 
DIMENSION  INBC ( IBRAN) ,NUMBC( IBRAN) 


C  Dimension  variables  for  lateral  inflows 

c  **************************************************************************** 

DIMENSION  CLT2(ISYS,IND1),CLT1(ISYS,IND1),  NPS  REA(INDl), 

NPS  SYS(ISYS) 


SAVE 


C 

C  On  first  call  to  SUBROUTINE:  Initialize  all  variables  and 
C  open  files 

C  **************************************************************************** 
C  Initialize  logical  variables 

C  **************************************************************************** 


IF ( JTIME . EQ . 1 ) THEN 
DUM  =  0. 

IDUM  -  0 

INT  LAT  =  .FALSE. 

DO  J=1,NBC 

INT  BC(J)=  .FALSE. 

END  DO- 

INT_MET  =  .FALSE. 

C  1st  -  Set  up  boundary  conditions 

C  **************************************************************************** 


IBF  =  30 
DO  1=1, NBC 

READ ( INPUT ,1011) BCFNAME ( I ) 

OPEN (UNIT=IBF , FILE=BCFNAME (I) , STATUS® ’ OLD ’ , IOSTAT=ISTAT) 
IF  (ISTAT  .NE.  0)THEN 
WRITE (6, 6000) 

6000  FORMAT (’Time  Variable  Boundary  File  Missing!’) 

STOP 

ENDIF 

READ(IBF, 1010)INBC(I) , NUMBC (I ) , INTBC 
WRITE (OUT , 2000 ) INBC ( I ) 

WRITE (OUT ,2010) BCFNAME ( I ) 

IF ( INTBC. GE.l) THEN 
INT  BC ( I ) = . TRUE . 

INT0PT  = ’ LINEAR  INTERPOL’ 

ELSE 

INTOPT  -’STEP  FUNCTION’ 

END  IF 

WRITE (OUT , 2045 ) INTOPT 
TNXTBC(I)  =  0. 

IBF  =  IBF  +  1 
END  DO 


C  2nd  -  Read  meteorlogical  data 

C  **************************************************************************** 


IF(ITEM(1) .EQ.O)  THEN 
READ (MET,  1015)DUC 
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READ (MET,  1015)LATUDC,  LONTUC,  LSMC 
READ  ( MET ,  1 0 1 0 )  INTMET ,  NUMT 
IF ( INTMET . GE . 1 ) THEN 
INT  MET=  .TRUE. 

INTCPT  =’ LINEAR  INTERPOL’ 

ELSE 

INTOPT  -’STEP  FUNCTION’ 

END  IF 

WRITE (OUT , 2020 )  DUC , LATUDC , LONTUC , LSMC 
WRITE (OUT , 2045 ) INTOPT 
END  IF 

TNCTMT  -  0. 

3rd  -  Read  time  varying  lateral  concentrations  (IF  ICL  *=1) 
**************************************************************************** 


IF(ICL.GE.l)  THEN 

READ (LAT, 1010 )NUMLAT  UD , NUML ,LAT0PT .NUMSYS 
IF(LATOPT  .GE.  1 ) THEN 
INT  LAT= . TRUE . 

INTOPT  -’LINEAR  INT’ 

ELSE 

INTOPT  -’STEP  FUNC’ 

END  IF 

READ(LAT, 1030) (NPS_REA(I) ,  1=1,  NUML) 
WRITE (OUT, 2030) 

WRITE (OUT, 2040) (NPS  REA(I) ,  I  -  1,  NUML) 
READ (LAT, 1030) (NPS  5YS(I),  1=1,  NUMSYS) 
WRITE (OUT, 2050)  “ 

DO  I-  1,  NUMSYS 

READ  ( LAT ,  1 04  0 )  NPSNAME  ( I ) 

WRITE ( OUT , 2060 ) NPS_SYS (I) , NPSNAME ( I ) 

END  DO 

WRITE (OUT , 2045 ) INTOPT 
END  IF 


END  IF 

On  first  and  all  subsequent  calls,  update  time  varying  data 
**************************************************************************** 


Assign  boundary  data 

**************************************************************************** 


IBF  -  30 


DO  600  1=1, NBC 

IF  ( JDAY.GE .TNXTBC(I) )  THEN 
DO  WHILE  (JDAY.GE.TNXTBC(I) ) 

TNXTBC2(I)  -TNXTBC(I) 

DO  J-l.ISYS 

DUMMY2( J)  =  DUMMY1 ( J , INBC(I) ) 

END  DO 

READ ( IBF , 1 0 2 0 ) IYR , IMO , IDY , THR , ( DUMMY 1 ( J , INBC ( I ) ) , 
J-l.ISYS) 
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CALL  JULIAN  DATE ( DUM , TNXTBC ( I ) , INITYR , IDUM , IDUM , DUM , 
IYR , IMO , IDY , THR) 


END  DO 


DO  J=1 ,ISYS 

DUMMY  ( J , INBC ( I ) ) =  DUMMY1 (J,INBC(I) ) 

END  DO 

C  WRITE (OUT , 2070 )  INBC ( I ) , IYR , IMO , IDY , THR , JDAY , TNXTBC ( I ) 

C  WRITE (OUT, 2080) (J,DUMMY(J, INBC (I)) ,J=1,ISYS) 

TNXTVD  -  MIN(TNXTVD, TNXTBC (I)) 

END  IF 


IF ( INT  BC(I) )  THEN 
DO  J-l.ISYS 

DUMMY  ( J , INBC ( I ) ) =VALNEW ( JDAY , TNXTBC (I) , TNXTBC  2 (I) , 
DUMMY1 (J,INBC(I) ) ,DUMMY2(J) ) 

END  DO 
END  IF 

IBF  =  IBF  +  1 
600  CONTINUE 


Assign  meteorological  data 

**************************************************************************** 


IF  (JDAY. GE.TNXTMT. AND. ITEM(l) .EQ.O)  THEN 
DO  WHILE  (JDAY. GE.TNXTMT) 

TNXTMT2  *  TNXTMT 
CLOUD2  =  CLOUD 1 
WIND2  =  WIND1 

DRY 2  =  DRY1 

WET2  =  WET1 

ATM2  =  ATM1 

READ (MET , 1 0 2 0 )  I YR , IMO , IDY , THR , CLOUD 1 , WIND 1 , DRY 1 , WET 1 , ATM1 
CALL  JULIAN  DATE (DUM, TNXTMT, INITYR, IDUM, IDUM, DUM, 

IYR, IMO, IDY, THR) 


END  DO 

CLOUDO 

=  CLOUD 1 

WINDO 

-  WIND1 

DRYO 

-  DRY1 

WETO 

-  WET1 

ATMO 

-  ATM1 

WRITE (OUT , 2090 )  IYR , IMO , IDY , THR , JDAY , TNXTMT 
WRITE (OUT, 3000)  CLOUDO ,WIND0 ,DRY0 ,WET0 , ATMO 
TNXTVD  -  MIN (TNXTVD, TNXTMT) 

FWST  =  TEMP 
END  IF 

IF (INT  MET. AND. ITEM(l). EQ.O)  THEN 

CLOTJDO  =  VALNEW(  JDAY ,  TNXTMT ,  TNXTMT2 ,  CLOUD  1 ,  CLOUD  2 ) 
WINDO  -  VALNEW ( JDAY , TNXTMT , TNXTMT 2 , WIND 1 , WIND2 ) 
DRYO  *  VALNEW (JDAY, TNXTMT, TNXTMT2, DRY 1,  DRY2) 
WETO  -  VALNEW (JDAY, TNXTMT, TNXTMT2, WET 1,  WET2) 
ATMO  *  VALNEW ( JDAY , TNXTMT , TNXTMT2 , ATM 1 ,  ATM2) 
END  IF 
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Assign  lateral  inflow  data 


IF  ( JDAY . GE . TNXTLT . AND . ICL . GE . 1 )  THEN 
DO  WHILE  ( JDAY. GE. TNXTLT) 

TNXTLT2  *  TNXTLT 
DO  II  -  1,  NUMSYS 
DO  IK  =  1,  NUML 

CLT2 (NPS  SYS (II) ,NPS  REA(IK) )  = 

CLT1INPS_SYS (II )7NPS_REA( IK) ) 

END  DO 
END  DO 

READ (LAT, 1020)  IYR , IMO , IDY , THR 

CALL  JULIAN  DATE (DUM, TNXTLT, INITYR,IDUM,IDUM,DUM, 

IYR, IMO, IDY, THR) 

DO  II  -  1 ,  NUMSYS  ,  %niur  x 

READ(LAT, 1050) (CLT1 (NPS_SYS(II) ,NPS_REA(IK) ) ,IK=1 ,NUML) 

END  DO 
END  DO 

WRITE ( OUT , 3  0 1 0 )  IYR , IMO , IDY , THR , JDAY , TNXTLT 
WRITE (OUT, 3020) (NPS_REA(IK) ,IK=1,NUML) 

DO  11=1 .NUMSYS 

DO  IK  =  1,  NUML 

CLT(NPS  SYS (II), NPS  REA (IK) )  =CLT1(NPS  SYS (II), 

NPS_REA(TK) ) 

END  DO 

WRITE (OUT, 3030)NPS  SYS(II) , (CLT(NPS_SYS(II) ,NPS_REA(IK) ) , 
IK=T,NUML) 

END  DO 

TNXTVD  =  MIN (TNXTVD, TNXTLT) 

END  IF 


IF ( INT  LAT . AND . ICL . GE . 1 )  THEN 
DO  T  =  1 ,  NUMSYS 
DO  J=1 .NUML 

CLT(NPS  SYS (I) ,NPS  REA(J))  =VALNEW( JDAY, TNXTLT, TNXTLT2 , 

CLTKNPS  SYS(I),NPS  REA(J)), 
CLT2 ( NPS”SYS (I)  , NPSTtEA (  J ) ) ) 

END  DO 
END  DO 
END  IF 


FORMAT  STATEMENTS 

**************************************************************************** 

1010  FORMAT (8110) 

1011  FORMAT (A1 2) 

1015  FORMAT (15F10. A) 

1020  FORMAT ( 15 , 15 , 15 , 15F10.4) 

1030  FORMAT (15) 

10A0  FORMAT (A15) 

1050  FORMAT ( 15X, 150 (F10 . 0) ) 

**************************************************************************** 

2000  FORMAT (/,’ ****  BOUNDARY  CONDITIONS  SPECIFIED  FOR  SEGMENT****’ ,14) 

2010  FORMAT ( ’  WILL  BE  READ  FROM  FILE  *  ’,A15) 
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2020  FORMAT ( / , ’ **************METEOROLOGICAL  DATA****************’ , / , 

.  ’DUO  ’  ,  F5 .2,  IX,  ’LATUDO’  ,F6.2,1X,  ’LONTUO’  ,F6.2,1X,  ’LSMO’  ,F6.2) 
2030  FORMAT (/, ’**TIME  VARYING  LATERAL  INFLOWS  SPECIFIED  AT 
.X-SECTIONS ’ ) 

2040  FORMAT ( 1 0 ( IX , 15 ) ) 

2045  FORMAT ( ’  INTERPOLATION  OPTION  ’ , al5 , / / ) 

2050  FORMAT (’  FOR  WATER  QUALITY  CONSTITUENTS: ’) 

2060  FORMAT ( 15, A1 5) 

C 

2070  FORMAT (/,’  **B0UNDARY  CONDITION  FOR  SEGMENT  ’,15, 

.’  UPDATED  AT:  YEAR  ’,16,’  MONTH  ’,13,’  DAY  ’,13,’  H0UR’,F8.4, 

.  ’  JULIAN  DATE’ , FI 0.4, ’ ,  NEXT  UPDATE  ON  JULIAN  DAY  ’ 

.  ,F10.4,  /) 

2080  FORMAT (’SYSTEM  -  ’,15,’  NEW  VALUE  =  \F10.4) 

2090  FORMAT (/,’  **METEOROLOGICAL  CONDITIONS  UPDATED  AT:  YEAR  ’, 

.  16,’  MONTH  ’,13,’  DAY  ’,13,’  H0UR’,F8.4, 

.  ’  JULIAN  DATE’ ,F10.4, ’ ,  NEXT  UPDATE  ON  JULIAN  DAY  ’ 

•  ,F10 . 4 , / ) 

3000  FORMAT (’  CLOUD  COVER  ’,  F8.3,’  WIND  SPEED=  \F8.2,’  DRY  BULB  ’, 

.  F8 . 2 , ’  WET  BULB  TEMP  =  ’,  F8 . 2 ,  ’  ATMOSPHERIC  PRESSURE  =  \F8.2) 
3010  FORMAT (/,’  **LATERAL  INFLOW  CONDITIONS  UPDATED  AT:  YEAR  ’, 

.  16,’  MONTH  ’,13,’  DAY  ’,13,’  H0UR’,F8.4, 

.  ’  JULIAN  DATE’ ,F10.4, ’ ,  NEXT  UPDATE  ON  JULIAN  DAY  ’.F10.4,/) 

3020  FORMAT (20X, ’  REACH  =  ’,150110) 

3030  FORMAT (’CONST.  NO. ’,15,’  NEW  VALUE  =  \150F10.4) 

RETURN 

END 
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APPENDIX  C: 


FORTRAN  VARIABLES 


Cl 


A 

AA 

ACLOCK 

ADN 

AG 

AKC 

AKN 

AKNX 


ALABEL 

ALGADK 

ALGAEB 

ALGRO 

ALGO 

ALG1 

ANCONT 

APCONT 

AP04 

AS 

ATB 

ATS 

AUNIT 

AO 

Al 

A2 

A3 

A4 

B 

BC 

BCD 


Cross-section  area  (L2) 

The  coefficient  matrix 
The  24-hr  clock  time  (T) 

An  empirical  coefficient  relating  to  the  reactivity  and  diffusivity 
of  nitrate  in  the  benthal  boundary  layer  (T  BKL  3BK) 

An  empirical  coefficient  in  the  general  equation  for  K2  (T  L  ) 

An  empirical  coefficient  relating  the  reactivity  and  diffusivity  of 
the  free  variable  in  the  benthal  boundary  layer  (TBK  XL  3BK) 

An  empirical  coefficient  relating  the  reactivity  and  diffusivity  of 
the  ammonia  variable  in  the  benthal  boundary  layer  (TBK  XL  3  ) 

An  empirical  coefficient  relating  the  absorptivity  and  diffusivity  of 
ammonia  in  the  benthal  boundary  layer  (TBK  1L  3BK) 

An  empirical  coefficient  relating  the  reactivity  and  diffusivity  of 
carbonaceous  biochemical  oxygen  demand  (TBK  *L  3BK) 

The  names  of  each  of  the  eight  modeled  species 

The  rate  of  algal  decay  (MT_1L*3) 

The  benthal  concentration  of  algae  (ML*2) 

The  algal  growth  rate  coefficient  (ML*3!*1) 

Lumped  algal  decay  rate  coefficient  (ML*2T_1) 

Lumped  algal  growth  rate  coefficient  (ML  2T  1) 

Nitrogen- to -biomass  ratio  in  algae  and  macrophytes 

Phosphorus- to -biomass  ratio  in  algae  and  macrophytes 

An  empirical  coefficient  relating  the  absorptivity  and  diffusivity  of 
phosphate  in  the  benthal  boundary  layer  (TBK  3L  3BK) 

Cross-sectional  area  averaged  over  the  characteristic  line  (L2) 

The  rate  coefficient  for  bottom  heat  loss 

The  rate  coefficient  for  surface  heat  loss 

The  units  of  each  of  the  eight  modeled  species 

RIV1H :  A(I) ,  RIV1Q :  Area  at  the  previous  time -step 

RIV1H :  A(I+1),  RIV1Q :  Cubic  interpolation  coefficient  for 
concentrations 

Cubic  interpolation  coefficient  for  concentration 

Cubic  interpolation  coefficient  for  concentration 

Cubic  interpolation  coefficient  for  concentration 

Channel  top -width  (L) .  TRIDAG:  The  main  diagonal 
Boundary  conditions 
Downstream  boundary  conditions 


Note:  Appendix  C  may  not  contain  all  of  the  FORTRAN  variables. 
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BCU 


Upstream  boundary  conditions 
BETA  Momentum  correction  factor.  TRIDAG:  Workspace  array 

BK  An  empirical  coefficient  reflecting  the  thickness  of  the  benthal 

boundary  layer 

BLABEL  Array  of  labels,  packed  for  output 

BOUND  Boundary  conditions  storage  array 

BTD  Boundary  condition  type  downstream 

BTU  Boundary  condition  type  upstream 

BUNIT  Array  of  units ,  packed  for  output 

BO  RIV1H :  Provisional  estimate  of  B.  RIV1Q:  B  at  the  previous  time- 

step  (L) 

B1  Cubic  interpolation  coefficient  for  spatial  derivative  of  the 

concentration 

B2  Cubic  interpolation  coefficient  for  spatial  derivative  of  the 

concentration 

B3  Cubic  interpolation  coefficient  for  spatial  derivative  of  the 

concentration 

B4  Cubic  interpolation  coefficient  for  spatial  derivative  of  the 

concentration 

C  RIV1H:  The  vector  Ci  of  the  matrix  solution  procedure 

RIV1Q :  The  concentrations  of  each  of  the  eight  modeled  species 

(ML'3). 

TRIDAG:  The  upper  codiagonal 

CBOD  Ultimate  first-stage  (carbonaceous)  BOD,  g/m3 

CBODL  The  concentration  of  carbonaceous  biochemical  oxygen  demand  in  the 
lateral  inflow  (ML"3) 

CBODSR  Rate  coefficient  for  CBOD  removal  by  settling,  day"1 

CCL  The  difference  between  concentration  in  the  lateral  inflow  and  the 

stream  (ML”3) 

CL  The  concentrations  of  each  of  the  eight  modeled  species  in  the 

lateral  inflow  (ML”3) 

CLABEL  The  label  assigned  to  the  free  variable 
CLOCK  The  clock  time  in  fraction  of  a  day  (T) 

CN  Lumped  scalar  equivalent  of  CN1(I) 

CN1  Modified  Manning's  coefficient 

COEF  Coefficient  in  the  rating  curve 

COL  The  concentration  of  the  free  variable  in  the  lateral  inflow  (ML"3) 

•CONST  The  name  of  the  namelist 

CONVRT  The  conversion  factor  for  customary  to  SI  units 
COSP  The  cosine  of  the  junction  angle 
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CP 


The  presence/absence  of  each  of  the  eight  modeled  species 
CSINK  The  sink  term  for  the  free  variable  (ML"3!’1) 

CUNIT  The  units  of  the  free  variable 

CO  The  scalar  equivalent  of  C(I)(ML'3) 

COO  The  concentration  just  upstream  of  the  junction  node  (ML-3) 

Cl  Coefficient  in  the  stage -area  formula 

C2  Coefficient  in  the  stage -area  formula 

C3  •  Coefficient  in  the  stage -area  formula 

D  RIV1H:  A/B .  MATS:  Gauss  elimination  factor 

RIV1Q:  Tributary  dilution  ratio 

DADX  Spatial  derivative  of  area  (L) 

DAMK  Empirical  coefficient  in  the  formula  for  reaeration  through  control 
structures 

DAMKO  Scalar  equivalent  of  DAMK 

DARK  Logical  flag  for  whether  the  current  time -step  is  outside  of  the 
daylight  hours 

DATE  The  date  of  the  program's  execution 
DAWN  Time  of  sunrise  (T) 

DBCA  Derivative  of  the  rating  curve  with  respect  to  A 

DBCQ  Derivative  of  the  rating  curve  with  respect  to  Q 

DBDH  Derivative  of  B  with  respect  to  H 

DC  Spatial  derivative  of  the  concentration  (M3L‘A) 

DCOO  Spatial  derivative  of  the  concentration  just  upstream  of  the  junction 

node  (M3L~a) 

DD  Dilution  ratio  of  the  tributary's  spatial  derivative 

DE  Elevation  head  loss  over  a  reach  (L) 

DEN  Lumped  denominator 

DFA  Derivative  of  the  residual  of  the  continuity  equation  with  respect  to 

A(I) 

DFAl  Derivative  of  the  residual  of  the  continuity  equation  with  respect  to 
A(I+1) 

DFQ  Derivative  of  the  residual  of  the  continuity  equation  with  respect  to 

Q(I) 

DFQ1  Derivative  of  the  residual  of  the  continuity  equation  with  respect  to 

Q(I+D 

DGA  Derivative  of  the  residual  of  the  momentum  equation  with  respect  to 

A(I) 

DGAl  Derivative  of  the  residual  of  the  momentum  equation  with  respect  to 
A(I+1) 
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DGQ 

DGQ1 

DJ 

DK 

DOL 

DOSAT 

DOSAVE 

DOX 

DQLA 

DSINK 

DT 

DUDX 

DX 

DX1 

DO 

D1 

D2 

E 

EC 

ELO 

ELAPSE 

ELO 

EXPO 

El 

E2 

F 

FEEDS 

FLIP1 

FLIP2 

FLOW 

FMT 


Derivative  of  the  residual  of  the  momentum  equation  with  respect  to 

Q(I) 

Derivative  of  the  residual  of  the  momentum  equation  with  respect  to 

Q(I+D 

The  main  storage  array 

The  spatial  derivative  of  the  decay  rates  (T  XL  x) 

Dissolved  oxygen  concentration  in  the  lateral  inflow  (ML  ) 

Dissolved  oxygen  saturation  value  (ML'3) 

Dissolved  oxygen  concentration  just  upstream  of  a  control  structure 
(ML'3) 

Provisional  estimate  of  dissolved  oxygen  concentration  (ML  ) 

Spatial  derivative  of  the  lateral  inflow  per  unit  area  (T  1L  1) 
Spatial  derivative  of  the  source/sink  terms  (T  1L  x) 

Time  increment  (T) 

Spatial  derivative  of  velocity  (T'1) 

Reach  length  (L) 

Reach  length  (L) 

A  distance  equivalent  of  the  time  increment,  used  for  estimating  a 
derivative  at  the  boundary  (L) 

RIV1H :  THETA*DT(T),  RIVIQ:  DX(1)  (L) 

DWPMN:  2*D1/DX1(I)  (TL'1)  ,  RIVIQ:  DX*(2)  (L) 

Fraction  of  the  reach  length  above  the  node  at  which  the 
characteristic  line  originated 

The  complement  of  E;  i.e. ,  1-E 

Water  surface  elevation  (L) 

Total  elapsed  simulation  time  (T) 

Water  surface  elevation  at  the  previous  time -step  (L) 

Exponent  in  the  rating  curve  formula 

An  empirical  coefficient  for  velocity  in  the  general  equation  for  k2 

An  empirical  coefficient  for  mean  depth  in  the  general  equation  for 
k2 

A  workspace  array 

FEEDS (I)  is  the  identification  number  of  the  segment  that  segment  I 
feeds  into 

A  logical  flag  which  indicates  that  the  first  two  columns  of  the 
coefficient  matrix  have  been  pivoted 

A  logical  flag  which  indicates  that  the  last  two  columns  of  the 
coefficient  matrix  have  been  pivoted 

A  scalar  assigned  the  literal  value  'Q*  for  scanning  the  input  deck 
The  output  format  array 
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FMT1 

FMT2 

GAMMA 

GR 

GO 

G2 

H 

HYDRO 

HYDROl 

HYDR02 

HO 

HI 

I 

IA 

IBC 

IBCL 

IBRANCH 

I CYCLE 

ID 

IDAM 

IDAMO 

IDAY 

IDLL 

IDO 

IEHOUR 

I  EMIN 

II 

IND1 

IND2 

IND3 

IND4 

IND5 

INIT 


The  format  specification  F14.1 
The  format  specification  F14.2 
TRIDAG :  A  workspace  array 

Acceleration  due  to  gravity  (LT'2) 

A  correction  factor  for  the  spatial  derivative  due  to  accelerating 
flow. 

GR/2  (LT-2) 

RIV1H:  depth  of  flow  above  the  channel  bottom  (L) , 

RIV1Q:  average  depth  of  flow  (L) 

The  output  array  for  hydrodynamic  data 

The  input  array  for  hydrodynamic  data  at  odd  time- steps 

The  input  array  for  hydrodynamic  data  at  even  time -steps 

RIV1H :  a  provisional  estimate  of  H  (L) ,  RIV1Q:  H  at  the  previous 

time -step  (L) 

A  provisional  estimate  of  H  (L) 

An  index  (usually  for  nodes) 

An  index  for  the  coefficient  matrix 
An  index  for  boundary  conditions 
IBC(L) 

Segment  branch  number 

An  index  for  sensitivity  analysis 

Segment  identification  number 

Control  structure  type 

A  scalar  equivalent  of  IDAM 

The  day  number  of  the  simulation 

ID(LL) 

A  scalar  equivalent  of  ID 

The  hours  component  of  the  24 -hr  clock  time 
The  minutes  component  of  the  24-hr  clock  time 
An  index 

The  total  number  of  nodes  in  the  system 

RIV1H:  The  array  space  needed  for  AA,  RIV1Q:  The  number  of  time 
intervals 

RIV1H:  The  array  space  needed  for  C  and  R;  RIV1Q:  The  total 

possible  number  of  boundary  condition  values 

The  array  space  required  for  HYDRO,  HYDROl,  and  HYDR02 

The  array  space  required  for  each  component  of  HYDROl  and  HYDR02 

The  array  of  initial  conditions  (ML'3) 
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IPRINT 

IR 

ISURMX 

IT 

I  TIME 
ITO 

IT1 

IT2 

13 

J 

JBC 

JBCD 

JBCU 

JJ 

JNODE 

JT 

JUNCT 

K 

KALGDK 

KALGRO 

KC 

KDN 

KEXT 

KE1 

KLITE 

KN 

KNCBDN 

KNPOOL 

KNX 

KOALDK 

KOCBDN 


The  print  interval 
An  index  for  the  array  R 

The  maximum  light  intensity  at  the  water  surface  (MT~3) 

Indexes  tributaries 
Time -step  number 

ITO(L)  is  the  index  of  the  T-array  at  which  segment  L  deposits  its 
data 

IT1(L)  is  the  index  of  the  T-array  at  which  the  first  tributary  to 
segment  L  deposits  its  data 

IT2(L)  is  the  index  of  the  T-array  at  which  the  last  tributary  to 
segment  L  deposits  its  data 

The  integer  equivalent  of  C3 

An  index  (usually  for  time) 

Segment  L  will  find  its  boundary  conditions  at  index  JBC(L) 

Segment  L  will  find  its  downstream  boundary  conditions  at  index 
JBCD(L) 

Segment  L  will  find  its  upstream  boundary  conditions  at  index  JBCU(L) 
An  index 
Junction  node 

An  array  of  junction  nodes,  packed  in  the  same  manner  as  T 

A  flag  for  whether  the  current  node  is  a  junction  node 

RIV1H:  An  index;  RIV1Q:  Decay  rates  for  each  of  the  eight  modeled 

species  (T_1) 

The  specific  algal  decay  rate  (T”1) 

The  specific  algal  growth  rate  (T^’1) 

The  decay  rate  for  the  free  variable  (T"1) 

The  denitrification  rate  (T"1) 

The  light  extinction  coefficient  (L-1) 

Channel  constriction  energy  loss  coefficient 

Half -velocity  constant  for  light  intensity,  watt/m2 

The  rate  of  ammonia  decay  due  to  nitrification  (T_1) 

The  Monod  half -velocity  constant  for  nitrate- inhibited 
denitrification  (ML"3) 

Half -velocity  constant  relating  inorganic  nitrogen  to  algal  growth  as 
per  QUAL2E 

The  rate  of  ammonia  decay  due  to  sediment  sorption  (T"1) 

The  Monod  half-velocity  constant  for  oxygen  limitation  of  algal  decay 
(ML-3) 

The  Monod  half -velocity  constant  for  oxygen  inhibition  of 
denitrification  (ML"3) 
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K0CB1 


The  Monod  half -velocity  constant  for  oxygen  limitation  of 

carbonaceous  biochemical  oxygen  demand  decay  (ML-3) 

KON  The  Monod  half -velocity  constant  for  oxygen  limitation  of 

denitrification  (ML"3) 

KP04  Half-velocity  constant  relating  phosphate  concentration  to  algal 
growth  rate 

KP04DK  The  phosphate  decay  rate  (T"1) 

KS  The  average  K-rate  across  the  characteristic  line  (T  1) 

KTB  *  The  bottom-water  heat  exchange  rate  (T'1) 

KTS  The  air-water  heat  exchange  rate  (T-1) 

K1  The  CBOD  decay  rate  (T'1) 

K2  The  reaeration  rate  (T-1) 

L  An  index  for  segments 

LAMBDA  The  duration  of  daylight  (T) 

LAST  The  index  of  the  last  item  interchanged 

LIB  The  set  of  boundary  conditions  for  each  segment 

LIMIT  The  index  of  the  last  item  to  be  inspected 
LJ  An  index 

LL  An  index 

LO  An  index 

LI  An  index 

M  An  index 

MACROB  Macrophyte  density  on  the  bottom,  g/m2 

MAX  The  number  of  species  actually  modeled  out  of  a  total  of  eight 

possible 

MBC  Used  in  indexing  boundary  conditions 

MBOUND  The  number  of  boundary  conditions 
MC  The  index  of  species 

MDEATH  Macrophyte  death  rate,  g/m2  day"1 
MGRATE  Macrophyte  growth  rate ,  g/m2  day’1 
MJ  An  index 

MM  An  index  of  labels  and  species 

MNODE  The  number  of  nodes 

MP  The  number  of  reaches 

MTIME  The  number  of  time -steps 

MO  An  index 

Ml  The  lower  loop  bound 

M2  The  upper  loop  bound 
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N 


An  index  of  species 

NBC  The  number  of  boundary  conditions  at  each  time -step 

NDEPLO  The  first  node  at  which  the  nitrogen  pool  is  depleted 

NDEPL1  The  last  node  at  which  the  nitrogen  pool  is  depleted 

NH3NL  The  concentration  of  ammonia  in  the  lateral  inflow  (ML”3) 

N0DE1  The  index  of  the  first  node  in  each  segment 

NOP040  The  first  node  at  which  the  phosphate  is  depleted 

N0P041  The  last  node  at  which  the  phosphate  is  depleted 

N03NL  The  concentration  of  nitrate  in  the  lateral  inflow  (ML”3) 

N03NX  A  provisional  estimate  of  the  nitrate  concentration  (ML”3) 

NPOOL  The  total  inorganic  nitrogen  concentration- -the  sum  of  nitrate  and 
ammonia  (ML-3) 

NS  The  number  of  segments  in  the  system 

N1  through 

NS38  Locations  within  the  main  storage  array 
OFEDEC  Oxygen- to -iron  ratio  for  iron  oxidation 
OMNDEC  Oxygen- to-manganese  ratio  for  oxidation 

ONEQUI  Incremental  increase  in  oxygen- to -algal  biomass  ratio  for  oxygen 
production  by  algae  and  macrophytes  when  nitrate  is  used  as  a 
nitrogen  source 

ONITRI  Oxygen- to-nitrogen  ratio  for  ammonia  oxidation 

OPDECY  Oxygen- to-biomass  ratio  for  oxygen  production  by  algae  and  macro¬ 
phytes  when  ammonia  is  the  nitrogen  source 

ORDER  A  collection  of  segment  numbers  in  an  upstream  order 

ORGANL  The  concentration  of  organic  nitrogen  in  the  lateral  inflow 

P  The  fraction  of  the  nitrogen  pool  composed  of  nitrate 

PARM  A  collection  of  parameters 

PI  7T,  3.14159 

P04L  The  concentration  of  phosphate  in  the  lateral  inflow  (ML-3) 

P04X  A  provisional  estimate  of  phosphate  concentration  (ML-3) 

PO  A  lumped  friction  loss  term  for  node  I(L"1/3/T”1) 

PI  A  lumped  friction  loss  term  for  node  1+1  (L'173/^1) 

-l 

Q  The  stream  flow  (L3T  ) 

QL  Lateral  inflow  per  unit  of  stream  length  (L2T”a) 

QLA  Lateral  inflow  per  unit  of  stream  volume  (T"1) 

QX  Q  (L3BKT”BK) 

QO  RIV1H:  Q ( I ) ;  RIV1Q:  Q  at  the  previous  time-step 

Q1  Q(I+1) 


CIO 


R 

ratio 


RIV1H:  The  residuals  from  the  governing  equations;  RIV1Q:  The 

dissolved  oxygen  deficit 

RCURVE  This  is  assigned  a  literal  value  of  "R"  and  is  used  for  scanning  the 
input 

RMILE  River  mile  (L) 

RMILEO  The  river  mile  of  the  downstream  terminus  of  the  system  (L) 

RMSA  The  root  mean  square  of  the  initial  cross-sectional  areas  at  every 
node  times  the  tolerance 

RMSQ  The  root  mean  square  of  the  initial  flow  at  every  node  times  the 
tolerance 

SAVE  A  temporary  storage  location  used  in  column  pivoting 
SINI  The  sine  of  the  incident  light  angle 

SINK  The  source/sink  term  for  each  of  the  eight  modeled  species  (ML"3!'1) 

SINKS  The  average  source/sink  value  across  the  characteristic  line  (ML  3T  1) 

SNAME  The  segment  name 

SNAMEO  The  segment  name 

START  The  start  time  of  the  simulation  (T) 

SUNSET  The  time  of  sunset  (T) 

T  The  tributary  data  transfer  array 

TAMMON  Temperature  coefficient  for  ammonia  oxidation 

TBIO  The  temperature  correction  factor  for  biochemical  processes 

TEMP  The  temperature  (°C) 

TEMPL  The  temperature  of  the  lateral  inflow  (°C) 

TEQ  The  equilibrium  temperature  (°C) 

THETA  The  weighting  factor 

TIME  The  time  of  the  program's  execution  . 

TITLE  The  title  of  the  program  run 

TNH3  The  temperature  correction  factor  for  nitrification 

TOLER  The  relative  tolerance  criterion  for  the  Newton-Raphson  procedure 
TPHYS  The  temperature  correction  factor  for  physical  processes 
TRIDAG  The  lower  codiagonal 

TSINK  The  source/sink  term  for  temperature  (°C  T"1) 

TSIV  An  empirical  coefficient  in  the  Tsivoglou-Wallace  reaeration  equation 
(L"1) 

TTT.T.  The  velocity  at  node  1-1  of  the  previous  time-step  (LT'1) 

ULR  The  velocity  at  node  I  of  the  previous  time-step  (LT"1) 

US  The  average  velocity  across  the  characteristic  line  (LT"1) 

UUR  The  velocity  at  node  I  of  the  current  time -step  (LT"1) 


Cll 


V 


TRIDAG:  The  solution  vector 


XC  The  previous  time-step  components  of  the  continuity  equation  (L2) 
XM  The  previous  time -step  components  of  the  momentum  equation  (L3^1) 
Z  The  channel  bed  elevation  (L) 
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13.  ABSTRACT  (Maximum  200  words) 

A  dynamic,  one- dimensional  (longitudinal),  water  quality  model  for 
unsteady  flows  in  rivers  and  streams,  CE-QUAL-RIV1 ,  is  presented. 

CE-QUAL-RIV1  is  developed  in  two  parts,  hydrodynamic  and  water  quality. 
Output  from  the  hydrodynamic  solution  is  used  to  drive  the  water  quality 
model. 

The  hydrodynamic  code  uses  a  four -point  implicit  Newton- Raphson  procedure 
to  solve  the  nonlinear  St.  Venant  equation.  Numerical  accuracy  for  the  advec- 
tion  of  sharp  gradients  is  preserved  in  the  water  quality  code  through  the  use 
of  the  explicit  two-point,  fourth-order  accurate,  Holly- Preissmann  scheme. 

Water  quality  constituents  include  temperature,  carbonaceous  biochemical 
oxygen  demand,  organic  nitrogen,  ammonia  nitrogen,  nitrate  nitrogen,  ortho¬ 
phosphate  phosphorus,  dissolved  manganese,  dissolved  iron,  dissolved  oxygen, 
coliform  bacteria,  and  algae.  The  effects  of  macrophytes  are  also  included. 
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13.  (Concluded). 


The  model  allows  simulation  of  branched  river  systems  with  multiple 
hydraulic  control  structures,  such  as  run-of-the  river  dams,  waterway  locks 
and  dams,  and  reregulation  dams.  The  model  was  developed  to  simulate  the 
transient  water  quality  conditions  associated  with  highly  unsteady  flows  that 
can  occur  on  regulated  and  unregulated  streams. 


